R Under development (unstable) (2023-06-30 r84625 ucrt) -- "Unsuffered Consequences" Copyright (C) 2023 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > source("incl/start.R") [18:01:43.841] plan(): Setting new future strategy stack: [18:01:43.842] List of future strategies: [18:01:43.842] 1. sequential: [18:01:43.842] - args: function (..., envir = parent.frame()) [18:01:43.842] - tweaked: FALSE [18:01:43.842] - call: future::plan("sequential") [18:01:43.858] plan(): nbrOfWorkers() = 1 > library("listenv") > > message("*** Globals w/ non-standard evaluation (NSE) ...") *** Globals w/ non-standard evaluation (NSE) ... > > data <- data.frame(x = 1:5, y = 1:5) > v0 <- subset(data, x < 3)$y > > for (strategy in supportedStrategies()) { + ## Speed up CRAN checks: Skip on CRAN Windows 32-bit + if (!fullTest && isWin32) next + + message(sprintf("- Strategy: %s ...", strategy)) + + plan(strategy) + + ## Assert option is passed on to future + options(future.globals.onMissing = "error") + opt1 %<-% getOption("future.globals.onMissing") + stopifnot(identical(opt1, "error")) + + options(future.globals.onMissing = "ignore") + opt2 %<-% getOption("future.globals.onMissing") + stopifnot(identical(opt2, "ignore")) + + options(future.globals.onMissing = "error") + res <- try({ v1 %<-% subset(data, x < 3)$y }, silent = TRUE) + stopifnot(inherits(res, "try-error")) + + options(future.globals.onMissing = "ignore") + v2 %<-% subset(data, x < 3)$y + stopifnot(identical(v2, v0)) + + ## Nested futures (requires option is passed on to future) + plan(list(sequential, strategy)) + options(future.globals.onMissing = "ignore") + v3 %<-% { + a %<-% subset(data, x < 3)$y + a + } %lazy% TRUE + stopifnot(identical(v3, v0)) + + message(sprintf("- Strategy: %s ... DONE", strategy)) + } - Strategy: sequential ... [18:01:43.890] plan(): Setting new future strategy stack: [18:01:43.890] List of future strategies: [18:01:43.890] 1. sequential: [18:01:43.890] - args: function (..., envir = parent.frame()) [18:01:43.890] - tweaked: FALSE [18:01:43.890] - call: plan(strategy) [18:01:43.904] plan(): nbrOfWorkers() = 1 [18:01:43.906] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error' [18:01:43.906] Searching for globals... [18:01:43.912] - globals found: [1] 'getOption' [18:01:43.912] Searching for globals ... DONE [18:01:43.913] Resolving globals: FALSE [18:01:43.914] [18:01:43.914] [18:01:43.914] getGlobalsAndPackages() ... DONE [18:01:43.915] run() for 'Future' ... [18:01:43.915] - state: 'created' [18:01:43.916] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:43.916] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:43.917] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:43.917] - Field: 'label' [18:01:43.917] - Field: 'local' [18:01:43.917] - Field: 'owner' [18:01:43.918] - Field: 'envir' [18:01:43.918] - Field: 'packages' [18:01:43.918] - Field: 'gc' [18:01:43.918] - Field: 'conditions' [18:01:43.919] - Field: 'expr' [18:01:43.919] - Field: 'uuid' [18:01:43.919] - Field: 'seed' [18:01:43.919] - Field: 'version' [18:01:43.920] - Field: 'result' [18:01:43.920] - Field: 'asynchronous' [18:01:43.920] - Field: 'calls' [18:01:43.920] - Field: 'globals' [18:01:43.921] - Field: 'stdout' [18:01:43.921] - Field: 'earlySignal' [18:01:43.921] - Field: 'lazy' [18:01:43.922] - Field: 'state' [18:01:43.922] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:43.922] - Launch lazy future ... [18:01:43.923] Packages needed by the future expression (n = 0): [18:01:43.924] Packages needed by future strategies (n = 0): [18:01:43.925] { [18:01:43.925] { [18:01:43.925] { [18:01:43.925] ...future.startTime <- base::Sys.time() [18:01:43.925] { [18:01:43.925] { [18:01:43.925] { [18:01:43.925] base::local({ [18:01:43.925] has_future <- base::requireNamespace("future", [18:01:43.925] quietly = TRUE) [18:01:43.925] if (has_future) { [18:01:43.925] ns <- base::getNamespace("future") [18:01:43.925] version <- ns[[".package"]][["version"]] [18:01:43.925] if (is.null(version)) [18:01:43.925] version <- utils::packageVersion("future") [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] version <- NULL [18:01:43.925] } [18:01:43.925] if (!has_future || version < "1.8.0") { [18:01:43.925] info <- base::c(r_version = base::gsub("R version ", [18:01:43.925] "", base::R.version$version.string), [18:01:43.925] platform = base::sprintf("%s (%s-bit)", [18:01:43.925] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:43.925] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:43.925] "release", "version")], collapse = " "), [18:01:43.925] hostname = base::Sys.info()[["nodename"]]) [18:01:43.925] info <- base::sprintf("%s: %s", base::names(info), [18:01:43.925] info) [18:01:43.925] info <- base::paste(info, collapse = "; ") [18:01:43.925] if (!has_future) { [18:01:43.925] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:43.925] info) [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:43.925] info, version) [18:01:43.925] } [18:01:43.925] base::stop(msg) [18:01:43.925] } [18:01:43.925] }) [18:01:43.925] } [18:01:43.925] options(future.plan = NULL) [18:01:43.925] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.925] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:43.925] } [18:01:43.925] ...future.workdir <- getwd() [18:01:43.925] } [18:01:43.925] ...future.oldOptions <- base::as.list(base::.Options) [18:01:43.925] ...future.oldEnvVars <- base::Sys.getenv() [18:01:43.925] } [18:01:43.925] base::options(future.startup.script = FALSE, future.globals.onMissing = "error", [18:01:43.925] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:43.925] future.globals.onMissing = "error", future.globals.onReference = NULL, [18:01:43.925] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:43.925] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:43.925] future.stdout.windows.reencode = NULL, width = 80L) [18:01:43.925] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:43.925] base::names(...future.oldOptions)) [18:01:43.925] } [18:01:43.925] if (FALSE) { [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] if (TRUE) { [18:01:43.925] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:43.925] open = "w") [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:43.925] windows = "NUL", "/dev/null"), open = "w") [18:01:43.925] } [18:01:43.925] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:43.925] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:43.925] base::sink(type = "output", split = FALSE) [18:01:43.925] base::close(...future.stdout) [18:01:43.925] }, add = TRUE) [18:01:43.925] } [18:01:43.925] ...future.frame <- base::sys.nframe() [18:01:43.925] ...future.conditions <- base::list() [18:01:43.925] ...future.rng <- base::globalenv()$.Random.seed [18:01:43.925] if (FALSE) { [18:01:43.925] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:43.925] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:43.925] } [18:01:43.925] ...future.result <- base::tryCatch({ [18:01:43.925] base::withCallingHandlers({ [18:01:43.925] ...future.value <- base::withVisible(base::local(getOption("future.globals.onMissing"))) [18:01:43.925] future::FutureResult(value = ...future.value$value, [18:01:43.925] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.925] ...future.rng), globalenv = if (FALSE) [18:01:43.925] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:43.925] ...future.globalenv.names)) [18:01:43.925] else NULL, started = ...future.startTime, version = "1.8") [18:01:43.925] }, condition = base::local({ [18:01:43.925] c <- base::c [18:01:43.925] inherits <- base::inherits [18:01:43.925] invokeRestart <- base::invokeRestart [18:01:43.925] length <- base::length [18:01:43.925] list <- base::list [18:01:43.925] seq.int <- base::seq.int [18:01:43.925] signalCondition <- base::signalCondition [18:01:43.925] sys.calls <- base::sys.calls [18:01:43.925] `[[` <- base::`[[` [18:01:43.925] `+` <- base::`+` [18:01:43.925] `<<-` <- base::`<<-` [18:01:43.925] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:43.925] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:43.925] 3L)] [18:01:43.925] } [18:01:43.925] function(cond) { [18:01:43.925] is_error <- inherits(cond, "error") [18:01:43.925] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:43.925] NULL) [18:01:43.925] if (is_error) { [18:01:43.925] sessionInformation <- function() { [18:01:43.925] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:43.925] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:43.925] search = base::search(), system = base::Sys.info()) [18:01:43.925] } [18:01:43.925] ...future.conditions[[length(...future.conditions) + [18:01:43.925] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:43.925] cond$call), session = sessionInformation(), [18:01:43.925] timestamp = base::Sys.time(), signaled = 0L) [18:01:43.925] signalCondition(cond) [18:01:43.925] } [18:01:43.925] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:43.925] "immediateCondition"))) { [18:01:43.925] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:43.925] ...future.conditions[[length(...future.conditions) + [18:01:43.925] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:43.925] if (TRUE && !signal) { [18:01:43.925] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.925] { [18:01:43.925] inherits <- base::inherits [18:01:43.925] invokeRestart <- base::invokeRestart [18:01:43.925] is.null <- base::is.null [18:01:43.925] muffled <- FALSE [18:01:43.925] if (inherits(cond, "message")) { [18:01:43.925] muffled <- grepl(pattern, "muffleMessage") [18:01:43.925] if (muffled) [18:01:43.925] invokeRestart("muffleMessage") [18:01:43.925] } [18:01:43.925] else if (inherits(cond, "warning")) { [18:01:43.925] muffled <- grepl(pattern, "muffleWarning") [18:01:43.925] if (muffled) [18:01:43.925] invokeRestart("muffleWarning") [18:01:43.925] } [18:01:43.925] else if (inherits(cond, "condition")) { [18:01:43.925] if (!is.null(pattern)) { [18:01:43.925] computeRestarts <- base::computeRestarts [18:01:43.925] grepl <- base::grepl [18:01:43.925] restarts <- computeRestarts(cond) [18:01:43.925] for (restart in restarts) { [18:01:43.925] name <- restart$name [18:01:43.925] if (is.null(name)) [18:01:43.925] next [18:01:43.925] if (!grepl(pattern, name)) [18:01:43.925] next [18:01:43.925] invokeRestart(restart) [18:01:43.925] muffled <- TRUE [18:01:43.925] break [18:01:43.925] } [18:01:43.925] } [18:01:43.925] } [18:01:43.925] invisible(muffled) [18:01:43.925] } [18:01:43.925] muffleCondition(cond, pattern = "^muffle") [18:01:43.925] } [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] if (TRUE) { [18:01:43.925] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.925] { [18:01:43.925] inherits <- base::inherits [18:01:43.925] invokeRestart <- base::invokeRestart [18:01:43.925] is.null <- base::is.null [18:01:43.925] muffled <- FALSE [18:01:43.925] if (inherits(cond, "message")) { [18:01:43.925] muffled <- grepl(pattern, "muffleMessage") [18:01:43.925] if (muffled) [18:01:43.925] invokeRestart("muffleMessage") [18:01:43.925] } [18:01:43.925] else if (inherits(cond, "warning")) { [18:01:43.925] muffled <- grepl(pattern, "muffleWarning") [18:01:43.925] if (muffled) [18:01:43.925] invokeRestart("muffleWarning") [18:01:43.925] } [18:01:43.925] else if (inherits(cond, "condition")) { [18:01:43.925] if (!is.null(pattern)) { [18:01:43.925] computeRestarts <- base::computeRestarts [18:01:43.925] grepl <- base::grepl [18:01:43.925] restarts <- computeRestarts(cond) [18:01:43.925] for (restart in restarts) { [18:01:43.925] name <- restart$name [18:01:43.925] if (is.null(name)) [18:01:43.925] next [18:01:43.925] if (!grepl(pattern, name)) [18:01:43.925] next [18:01:43.925] invokeRestart(restart) [18:01:43.925] muffled <- TRUE [18:01:43.925] break [18:01:43.925] } [18:01:43.925] } [18:01:43.925] } [18:01:43.925] invisible(muffled) [18:01:43.925] } [18:01:43.925] muffleCondition(cond, pattern = "^muffle") [18:01:43.925] } [18:01:43.925] } [18:01:43.925] } [18:01:43.925] })) [18:01:43.925] }, error = function(ex) { [18:01:43.925] base::structure(base::list(value = NULL, visible = NULL, [18:01:43.925] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.925] ...future.rng), started = ...future.startTime, [18:01:43.925] finished = Sys.time(), session_uuid = NA_character_, [18:01:43.925] version = "1.8"), class = "FutureResult") [18:01:43.925] }, finally = { [18:01:43.925] if (!identical(...future.workdir, getwd())) [18:01:43.925] setwd(...future.workdir) [18:01:43.925] { [18:01:43.925] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:43.925] ...future.oldOptions$nwarnings <- NULL [18:01:43.925] } [18:01:43.925] base::options(...future.oldOptions) [18:01:43.925] if (.Platform$OS.type == "windows") { [18:01:43.925] old_names <- names(...future.oldEnvVars) [18:01:43.925] envs <- base::Sys.getenv() [18:01:43.925] names <- names(envs) [18:01:43.925] common <- intersect(names, old_names) [18:01:43.925] added <- setdiff(names, old_names) [18:01:43.925] removed <- setdiff(old_names, names) [18:01:43.925] changed <- common[...future.oldEnvVars[common] != [18:01:43.925] envs[common]] [18:01:43.925] NAMES <- toupper(changed) [18:01:43.925] args <- list() [18:01:43.925] for (kk in seq_along(NAMES)) { [18:01:43.925] name <- changed[[kk]] [18:01:43.925] NAME <- NAMES[[kk]] [18:01:43.925] if (name != NAME && is.element(NAME, old_names)) [18:01:43.925] next [18:01:43.925] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.925] } [18:01:43.925] NAMES <- toupper(added) [18:01:43.925] for (kk in seq_along(NAMES)) { [18:01:43.925] name <- added[[kk]] [18:01:43.925] NAME <- NAMES[[kk]] [18:01:43.925] if (name != NAME && is.element(NAME, old_names)) [18:01:43.925] next [18:01:43.925] args[[name]] <- "" [18:01:43.925] } [18:01:43.925] NAMES <- toupper(removed) [18:01:43.925] for (kk in seq_along(NAMES)) { [18:01:43.925] name <- removed[[kk]] [18:01:43.925] NAME <- NAMES[[kk]] [18:01:43.925] if (name != NAME && is.element(NAME, old_names)) [18:01:43.925] next [18:01:43.925] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.925] } [18:01:43.925] if (length(args) > 0) [18:01:43.925] base::do.call(base::Sys.setenv, args = args) [18:01:43.925] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:43.925] } [18:01:43.925] { [18:01:43.925] if (base::length(...future.futureOptionsAdded) > [18:01:43.925] 0L) { [18:01:43.925] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:43.925] base::names(opts) <- ...future.futureOptionsAdded [18:01:43.925] base::options(opts) [18:01:43.925] } [18:01:43.925] { [18:01:43.925] { [18:01:43.925] NULL [18:01:43.925] RNGkind("Mersenne-Twister") [18:01:43.925] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:43.925] inherits = FALSE) [18:01:43.925] } [18:01:43.925] options(future.plan = NULL) [18:01:43.925] if (is.na(NA_character_)) [18:01:43.925] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.925] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:43.925] future::plan(list(function (..., envir = parent.frame()) [18:01:43.925] { [18:01:43.925] future <- SequentialFuture(..., envir = envir) [18:01:43.925] if (!future$lazy) [18:01:43.925] future <- run(future) [18:01:43.925] invisible(future) [18:01:43.925] }), .cleanup = FALSE, .init = FALSE) [18:01:43.925] } [18:01:43.925] } [18:01:43.925] } [18:01:43.925] }) [18:01:43.925] if (TRUE) { [18:01:43.925] base::sink(type = "output", split = FALSE) [18:01:43.925] if (TRUE) { [18:01:43.925] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:43.925] } [18:01:43.925] else { [18:01:43.925] ...future.result["stdout"] <- base::list(NULL) [18:01:43.925] } [18:01:43.925] base::close(...future.stdout) [18:01:43.925] ...future.stdout <- NULL [18:01:43.925] } [18:01:43.925] ...future.result$conditions <- ...future.conditions [18:01:43.925] ...future.result$finished <- base::Sys.time() [18:01:43.925] ...future.result [18:01:43.925] } [18:01:43.931] plan(): Setting new future strategy stack: [18:01:43.931] List of future strategies: [18:01:43.931] 1. sequential: [18:01:43.931] - args: function (..., envir = parent.frame()) [18:01:43.931] - tweaked: FALSE [18:01:43.931] - call: NULL [18:01:43.932] plan(): nbrOfWorkers() = 1 [18:01:43.934] plan(): Setting new future strategy stack: [18:01:43.934] List of future strategies: [18:01:43.934] 1. sequential: [18:01:43.934] - args: function (..., envir = parent.frame()) [18:01:43.934] - tweaked: FALSE [18:01:43.934] - call: plan(strategy) [18:01:43.934] plan(): nbrOfWorkers() = 1 [18:01:43.935] SequentialFuture started (and completed) [18:01:43.935] - Launch lazy future ... done [18:01:43.935] run() for 'SequentialFuture' ... done [18:01:43.936] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:43.937] Searching for globals... [18:01:43.937] - globals found: [1] 'getOption' [18:01:43.937] Searching for globals ... DONE [18:01:43.938] Resolving globals: FALSE [18:01:43.938] [18:01:43.938] [18:01:43.938] getGlobalsAndPackages() ... DONE [18:01:43.939] run() for 'Future' ... [18:01:43.939] - state: 'created' [18:01:43.939] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:43.939] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:43.940] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:43.940] - Field: 'label' [18:01:43.940] - Field: 'local' [18:01:43.940] - Field: 'owner' [18:01:43.940] - Field: 'envir' [18:01:43.941] - Field: 'packages' [18:01:43.941] - Field: 'gc' [18:01:43.941] - Field: 'conditions' [18:01:43.941] - Field: 'expr' [18:01:43.941] - Field: 'uuid' [18:01:43.941] - Field: 'seed' [18:01:43.942] - Field: 'version' [18:01:43.942] - Field: 'result' [18:01:43.944] - Field: 'asynchronous' [18:01:43.944] - Field: 'calls' [18:01:43.944] - Field: 'globals' [18:01:43.944] - Field: 'stdout' [18:01:43.944] - Field: 'earlySignal' [18:01:43.945] - Field: 'lazy' [18:01:43.945] - Field: 'state' [18:01:43.945] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:43.945] - Launch lazy future ... [18:01:43.945] Packages needed by the future expression (n = 0): [18:01:43.946] Packages needed by future strategies (n = 0): [18:01:43.946] { [18:01:43.946] { [18:01:43.946] { [18:01:43.946] ...future.startTime <- base::Sys.time() [18:01:43.946] { [18:01:43.946] { [18:01:43.946] { [18:01:43.946] base::local({ [18:01:43.946] has_future <- base::requireNamespace("future", [18:01:43.946] quietly = TRUE) [18:01:43.946] if (has_future) { [18:01:43.946] ns <- base::getNamespace("future") [18:01:43.946] version <- ns[[".package"]][["version"]] [18:01:43.946] if (is.null(version)) [18:01:43.946] version <- utils::packageVersion("future") [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] version <- NULL [18:01:43.946] } [18:01:43.946] if (!has_future || version < "1.8.0") { [18:01:43.946] info <- base::c(r_version = base::gsub("R version ", [18:01:43.946] "", base::R.version$version.string), [18:01:43.946] platform = base::sprintf("%s (%s-bit)", [18:01:43.946] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:43.946] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:43.946] "release", "version")], collapse = " "), [18:01:43.946] hostname = base::Sys.info()[["nodename"]]) [18:01:43.946] info <- base::sprintf("%s: %s", base::names(info), [18:01:43.946] info) [18:01:43.946] info <- base::paste(info, collapse = "; ") [18:01:43.946] if (!has_future) { [18:01:43.946] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:43.946] info) [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:43.946] info, version) [18:01:43.946] } [18:01:43.946] base::stop(msg) [18:01:43.946] } [18:01:43.946] }) [18:01:43.946] } [18:01:43.946] options(future.plan = NULL) [18:01:43.946] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.946] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:43.946] } [18:01:43.946] ...future.workdir <- getwd() [18:01:43.946] } [18:01:43.946] ...future.oldOptions <- base::as.list(base::.Options) [18:01:43.946] ...future.oldEnvVars <- base::Sys.getenv() [18:01:43.946] } [18:01:43.946] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:43.946] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:43.946] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:43.946] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:43.946] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:43.946] future.stdout.windows.reencode = NULL, width = 80L) [18:01:43.946] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:43.946] base::names(...future.oldOptions)) [18:01:43.946] } [18:01:43.946] if (FALSE) { [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] if (TRUE) { [18:01:43.946] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:43.946] open = "w") [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:43.946] windows = "NUL", "/dev/null"), open = "w") [18:01:43.946] } [18:01:43.946] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:43.946] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:43.946] base::sink(type = "output", split = FALSE) [18:01:43.946] base::close(...future.stdout) [18:01:43.946] }, add = TRUE) [18:01:43.946] } [18:01:43.946] ...future.frame <- base::sys.nframe() [18:01:43.946] ...future.conditions <- base::list() [18:01:43.946] ...future.rng <- base::globalenv()$.Random.seed [18:01:43.946] if (FALSE) { [18:01:43.946] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:43.946] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:43.946] } [18:01:43.946] ...future.result <- base::tryCatch({ [18:01:43.946] base::withCallingHandlers({ [18:01:43.946] ...future.value <- base::withVisible(base::local(getOption("future.globals.onMissing"))) [18:01:43.946] future::FutureResult(value = ...future.value$value, [18:01:43.946] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.946] ...future.rng), globalenv = if (FALSE) [18:01:43.946] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:43.946] ...future.globalenv.names)) [18:01:43.946] else NULL, started = ...future.startTime, version = "1.8") [18:01:43.946] }, condition = base::local({ [18:01:43.946] c <- base::c [18:01:43.946] inherits <- base::inherits [18:01:43.946] invokeRestart <- base::invokeRestart [18:01:43.946] length <- base::length [18:01:43.946] list <- base::list [18:01:43.946] seq.int <- base::seq.int [18:01:43.946] signalCondition <- base::signalCondition [18:01:43.946] sys.calls <- base::sys.calls [18:01:43.946] `[[` <- base::`[[` [18:01:43.946] `+` <- base::`+` [18:01:43.946] `<<-` <- base::`<<-` [18:01:43.946] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:43.946] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:43.946] 3L)] [18:01:43.946] } [18:01:43.946] function(cond) { [18:01:43.946] is_error <- inherits(cond, "error") [18:01:43.946] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:43.946] NULL) [18:01:43.946] if (is_error) { [18:01:43.946] sessionInformation <- function() { [18:01:43.946] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:43.946] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:43.946] search = base::search(), system = base::Sys.info()) [18:01:43.946] } [18:01:43.946] ...future.conditions[[length(...future.conditions) + [18:01:43.946] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:43.946] cond$call), session = sessionInformation(), [18:01:43.946] timestamp = base::Sys.time(), signaled = 0L) [18:01:43.946] signalCondition(cond) [18:01:43.946] } [18:01:43.946] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:43.946] "immediateCondition"))) { [18:01:43.946] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:43.946] ...future.conditions[[length(...future.conditions) + [18:01:43.946] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:43.946] if (TRUE && !signal) { [18:01:43.946] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.946] { [18:01:43.946] inherits <- base::inherits [18:01:43.946] invokeRestart <- base::invokeRestart [18:01:43.946] is.null <- base::is.null [18:01:43.946] muffled <- FALSE [18:01:43.946] if (inherits(cond, "message")) { [18:01:43.946] muffled <- grepl(pattern, "muffleMessage") [18:01:43.946] if (muffled) [18:01:43.946] invokeRestart("muffleMessage") [18:01:43.946] } [18:01:43.946] else if (inherits(cond, "warning")) { [18:01:43.946] muffled <- grepl(pattern, "muffleWarning") [18:01:43.946] if (muffled) [18:01:43.946] invokeRestart("muffleWarning") [18:01:43.946] } [18:01:43.946] else if (inherits(cond, "condition")) { [18:01:43.946] if (!is.null(pattern)) { [18:01:43.946] computeRestarts <- base::computeRestarts [18:01:43.946] grepl <- base::grepl [18:01:43.946] restarts <- computeRestarts(cond) [18:01:43.946] for (restart in restarts) { [18:01:43.946] name <- restart$name [18:01:43.946] if (is.null(name)) [18:01:43.946] next [18:01:43.946] if (!grepl(pattern, name)) [18:01:43.946] next [18:01:43.946] invokeRestart(restart) [18:01:43.946] muffled <- TRUE [18:01:43.946] break [18:01:43.946] } [18:01:43.946] } [18:01:43.946] } [18:01:43.946] invisible(muffled) [18:01:43.946] } [18:01:43.946] muffleCondition(cond, pattern = "^muffle") [18:01:43.946] } [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] if (TRUE) { [18:01:43.946] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.946] { [18:01:43.946] inherits <- base::inherits [18:01:43.946] invokeRestart <- base::invokeRestart [18:01:43.946] is.null <- base::is.null [18:01:43.946] muffled <- FALSE [18:01:43.946] if (inherits(cond, "message")) { [18:01:43.946] muffled <- grepl(pattern, "muffleMessage") [18:01:43.946] if (muffled) [18:01:43.946] invokeRestart("muffleMessage") [18:01:43.946] } [18:01:43.946] else if (inherits(cond, "warning")) { [18:01:43.946] muffled <- grepl(pattern, "muffleWarning") [18:01:43.946] if (muffled) [18:01:43.946] invokeRestart("muffleWarning") [18:01:43.946] } [18:01:43.946] else if (inherits(cond, "condition")) { [18:01:43.946] if (!is.null(pattern)) { [18:01:43.946] computeRestarts <- base::computeRestarts [18:01:43.946] grepl <- base::grepl [18:01:43.946] restarts <- computeRestarts(cond) [18:01:43.946] for (restart in restarts) { [18:01:43.946] name <- restart$name [18:01:43.946] if (is.null(name)) [18:01:43.946] next [18:01:43.946] if (!grepl(pattern, name)) [18:01:43.946] next [18:01:43.946] invokeRestart(restart) [18:01:43.946] muffled <- TRUE [18:01:43.946] break [18:01:43.946] } [18:01:43.946] } [18:01:43.946] } [18:01:43.946] invisible(muffled) [18:01:43.946] } [18:01:43.946] muffleCondition(cond, pattern = "^muffle") [18:01:43.946] } [18:01:43.946] } [18:01:43.946] } [18:01:43.946] })) [18:01:43.946] }, error = function(ex) { [18:01:43.946] base::structure(base::list(value = NULL, visible = NULL, [18:01:43.946] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.946] ...future.rng), started = ...future.startTime, [18:01:43.946] finished = Sys.time(), session_uuid = NA_character_, [18:01:43.946] version = "1.8"), class = "FutureResult") [18:01:43.946] }, finally = { [18:01:43.946] if (!identical(...future.workdir, getwd())) [18:01:43.946] setwd(...future.workdir) [18:01:43.946] { [18:01:43.946] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:43.946] ...future.oldOptions$nwarnings <- NULL [18:01:43.946] } [18:01:43.946] base::options(...future.oldOptions) [18:01:43.946] if (.Platform$OS.type == "windows") { [18:01:43.946] old_names <- names(...future.oldEnvVars) [18:01:43.946] envs <- base::Sys.getenv() [18:01:43.946] names <- names(envs) [18:01:43.946] common <- intersect(names, old_names) [18:01:43.946] added <- setdiff(names, old_names) [18:01:43.946] removed <- setdiff(old_names, names) [18:01:43.946] changed <- common[...future.oldEnvVars[common] != [18:01:43.946] envs[common]] [18:01:43.946] NAMES <- toupper(changed) [18:01:43.946] args <- list() [18:01:43.946] for (kk in seq_along(NAMES)) { [18:01:43.946] name <- changed[[kk]] [18:01:43.946] NAME <- NAMES[[kk]] [18:01:43.946] if (name != NAME && is.element(NAME, old_names)) [18:01:43.946] next [18:01:43.946] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.946] } [18:01:43.946] NAMES <- toupper(added) [18:01:43.946] for (kk in seq_along(NAMES)) { [18:01:43.946] name <- added[[kk]] [18:01:43.946] NAME <- NAMES[[kk]] [18:01:43.946] if (name != NAME && is.element(NAME, old_names)) [18:01:43.946] next [18:01:43.946] args[[name]] <- "" [18:01:43.946] } [18:01:43.946] NAMES <- toupper(removed) [18:01:43.946] for (kk in seq_along(NAMES)) { [18:01:43.946] name <- removed[[kk]] [18:01:43.946] NAME <- NAMES[[kk]] [18:01:43.946] if (name != NAME && is.element(NAME, old_names)) [18:01:43.946] next [18:01:43.946] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.946] } [18:01:43.946] if (length(args) > 0) [18:01:43.946] base::do.call(base::Sys.setenv, args = args) [18:01:43.946] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:43.946] } [18:01:43.946] { [18:01:43.946] if (base::length(...future.futureOptionsAdded) > [18:01:43.946] 0L) { [18:01:43.946] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:43.946] base::names(opts) <- ...future.futureOptionsAdded [18:01:43.946] base::options(opts) [18:01:43.946] } [18:01:43.946] { [18:01:43.946] { [18:01:43.946] NULL [18:01:43.946] RNGkind("Mersenne-Twister") [18:01:43.946] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:43.946] inherits = FALSE) [18:01:43.946] } [18:01:43.946] options(future.plan = NULL) [18:01:43.946] if (is.na(NA_character_)) [18:01:43.946] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.946] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:43.946] future::plan(list(function (..., envir = parent.frame()) [18:01:43.946] { [18:01:43.946] future <- SequentialFuture(..., envir = envir) [18:01:43.946] if (!future$lazy) [18:01:43.946] future <- run(future) [18:01:43.946] invisible(future) [18:01:43.946] }), .cleanup = FALSE, .init = FALSE) [18:01:43.946] } [18:01:43.946] } [18:01:43.946] } [18:01:43.946] }) [18:01:43.946] if (TRUE) { [18:01:43.946] base::sink(type = "output", split = FALSE) [18:01:43.946] if (TRUE) { [18:01:43.946] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:43.946] } [18:01:43.946] else { [18:01:43.946] ...future.result["stdout"] <- base::list(NULL) [18:01:43.946] } [18:01:43.946] base::close(...future.stdout) [18:01:43.946] ...future.stdout <- NULL [18:01:43.946] } [18:01:43.946] ...future.result$conditions <- ...future.conditions [18:01:43.946] ...future.result$finished <- base::Sys.time() [18:01:43.946] ...future.result [18:01:43.946] } [18:01:43.950] plan(): Setting new future strategy stack: [18:01:43.950] List of future strategies: [18:01:43.950] 1. sequential: [18:01:43.950] - args: function (..., envir = parent.frame()) [18:01:43.950] - tweaked: FALSE [18:01:43.950] - call: NULL [18:01:43.951] plan(): nbrOfWorkers() = 1 [18:01:43.952] plan(): Setting new future strategy stack: [18:01:43.952] List of future strategies: [18:01:43.952] 1. sequential: [18:01:43.952] - args: function (..., envir = parent.frame()) [18:01:43.952] - tweaked: FALSE [18:01:43.952] - call: plan(strategy) [18:01:43.953] plan(): nbrOfWorkers() = 1 [18:01:43.953] SequentialFuture started (and completed) [18:01:43.953] - Launch lazy future ... done [18:01:43.953] run() for 'SequentialFuture' ... done [18:01:43.954] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error' [18:01:43.954] Searching for globals... [18:01:43.956] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:43.956] Searching for globals... [18:01:43.957] - globals found: [5] '$', 'subset', 'data', '<', 'x' [18:01:43.957] Searching for globals ... DONE [18:01:43.957] Resolving globals: FALSE [18:01:43.959] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:43.959] The total size of the 1 globals exported for future expression ('subset(data, x < 3)$y') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:43.960] - globals: [1] 'data' [18:01:43.960] [18:01:43.960] getGlobalsAndPackages() ... DONE [18:01:43.960] run() for 'Future' ... [18:01:43.960] - state: 'created' [18:01:43.961] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:43.961] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:43.961] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:43.961] - Field: 'label' [18:01:43.962] - Field: 'local' [18:01:43.962] - Field: 'owner' [18:01:43.962] - Field: 'envir' [18:01:43.962] - Field: 'packages' [18:01:43.962] - Field: 'gc' [18:01:43.962] - Field: 'conditions' [18:01:43.963] - Field: 'expr' [18:01:43.963] - Field: 'uuid' [18:01:43.963] - Field: 'seed' [18:01:43.963] - Field: 'version' [18:01:43.963] - Field: 'result' [18:01:43.963] - Field: 'asynchronous' [18:01:43.964] - Field: 'calls' [18:01:43.964] - Field: 'globals' [18:01:43.964] - Field: 'stdout' [18:01:43.964] - Field: 'earlySignal' [18:01:43.964] - Field: 'lazy' [18:01:43.965] - Field: 'state' [18:01:43.965] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:43.965] - Launch lazy future ... [18:01:43.965] Packages needed by the future expression (n = 0): [18:01:43.965] Packages needed by future strategies (n = 0): [18:01:43.966] { [18:01:43.966] { [18:01:43.966] { [18:01:43.966] ...future.startTime <- base::Sys.time() [18:01:43.966] { [18:01:43.966] { [18:01:43.966] { [18:01:43.966] base::local({ [18:01:43.966] has_future <- base::requireNamespace("future", [18:01:43.966] quietly = TRUE) [18:01:43.966] if (has_future) { [18:01:43.966] ns <- base::getNamespace("future") [18:01:43.966] version <- ns[[".package"]][["version"]] [18:01:43.966] if (is.null(version)) [18:01:43.966] version <- utils::packageVersion("future") [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] version <- NULL [18:01:43.966] } [18:01:43.966] if (!has_future || version < "1.8.0") { [18:01:43.966] info <- base::c(r_version = base::gsub("R version ", [18:01:43.966] "", base::R.version$version.string), [18:01:43.966] platform = base::sprintf("%s (%s-bit)", [18:01:43.966] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:43.966] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:43.966] "release", "version")], collapse = " "), [18:01:43.966] hostname = base::Sys.info()[["nodename"]]) [18:01:43.966] info <- base::sprintf("%s: %s", base::names(info), [18:01:43.966] info) [18:01:43.966] info <- base::paste(info, collapse = "; ") [18:01:43.966] if (!has_future) { [18:01:43.966] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:43.966] info) [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:43.966] info, version) [18:01:43.966] } [18:01:43.966] base::stop(msg) [18:01:43.966] } [18:01:43.966] }) [18:01:43.966] } [18:01:43.966] options(future.plan = NULL) [18:01:43.966] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.966] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:43.966] } [18:01:43.966] ...future.workdir <- getwd() [18:01:43.966] } [18:01:43.966] ...future.oldOptions <- base::as.list(base::.Options) [18:01:43.966] ...future.oldEnvVars <- base::Sys.getenv() [18:01:43.966] } [18:01:43.966] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:43.966] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:43.966] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:43.966] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:43.966] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:43.966] future.stdout.windows.reencode = NULL, width = 80L) [18:01:43.966] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:43.966] base::names(...future.oldOptions)) [18:01:43.966] } [18:01:43.966] if (FALSE) { [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] if (TRUE) { [18:01:43.966] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:43.966] open = "w") [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:43.966] windows = "NUL", "/dev/null"), open = "w") [18:01:43.966] } [18:01:43.966] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:43.966] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:43.966] base::sink(type = "output", split = FALSE) [18:01:43.966] base::close(...future.stdout) [18:01:43.966] }, add = TRUE) [18:01:43.966] } [18:01:43.966] ...future.frame <- base::sys.nframe() [18:01:43.966] ...future.conditions <- base::list() [18:01:43.966] ...future.rng <- base::globalenv()$.Random.seed [18:01:43.966] if (FALSE) { [18:01:43.966] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:43.966] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:43.966] } [18:01:43.966] ...future.result <- base::tryCatch({ [18:01:43.966] base::withCallingHandlers({ [18:01:43.966] ...future.value <- base::withVisible(base::local(subset(data, [18:01:43.966] x < 3)$y)) [18:01:43.966] future::FutureResult(value = ...future.value$value, [18:01:43.966] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.966] ...future.rng), globalenv = if (FALSE) [18:01:43.966] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:43.966] ...future.globalenv.names)) [18:01:43.966] else NULL, started = ...future.startTime, version = "1.8") [18:01:43.966] }, condition = base::local({ [18:01:43.966] c <- base::c [18:01:43.966] inherits <- base::inherits [18:01:43.966] invokeRestart <- base::invokeRestart [18:01:43.966] length <- base::length [18:01:43.966] list <- base::list [18:01:43.966] seq.int <- base::seq.int [18:01:43.966] signalCondition <- base::signalCondition [18:01:43.966] sys.calls <- base::sys.calls [18:01:43.966] `[[` <- base::`[[` [18:01:43.966] `+` <- base::`+` [18:01:43.966] `<<-` <- base::`<<-` [18:01:43.966] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:43.966] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:43.966] 3L)] [18:01:43.966] } [18:01:43.966] function(cond) { [18:01:43.966] is_error <- inherits(cond, "error") [18:01:43.966] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:43.966] NULL) [18:01:43.966] if (is_error) { [18:01:43.966] sessionInformation <- function() { [18:01:43.966] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:43.966] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:43.966] search = base::search(), system = base::Sys.info()) [18:01:43.966] } [18:01:43.966] ...future.conditions[[length(...future.conditions) + [18:01:43.966] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:43.966] cond$call), session = sessionInformation(), [18:01:43.966] timestamp = base::Sys.time(), signaled = 0L) [18:01:43.966] signalCondition(cond) [18:01:43.966] } [18:01:43.966] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:43.966] "immediateCondition"))) { [18:01:43.966] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:43.966] ...future.conditions[[length(...future.conditions) + [18:01:43.966] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:43.966] if (TRUE && !signal) { [18:01:43.966] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.966] { [18:01:43.966] inherits <- base::inherits [18:01:43.966] invokeRestart <- base::invokeRestart [18:01:43.966] is.null <- base::is.null [18:01:43.966] muffled <- FALSE [18:01:43.966] if (inherits(cond, "message")) { [18:01:43.966] muffled <- grepl(pattern, "muffleMessage") [18:01:43.966] if (muffled) [18:01:43.966] invokeRestart("muffleMessage") [18:01:43.966] } [18:01:43.966] else if (inherits(cond, "warning")) { [18:01:43.966] muffled <- grepl(pattern, "muffleWarning") [18:01:43.966] if (muffled) [18:01:43.966] invokeRestart("muffleWarning") [18:01:43.966] } [18:01:43.966] else if (inherits(cond, "condition")) { [18:01:43.966] if (!is.null(pattern)) { [18:01:43.966] computeRestarts <- base::computeRestarts [18:01:43.966] grepl <- base::grepl [18:01:43.966] restarts <- computeRestarts(cond) [18:01:43.966] for (restart in restarts) { [18:01:43.966] name <- restart$name [18:01:43.966] if (is.null(name)) [18:01:43.966] next [18:01:43.966] if (!grepl(pattern, name)) [18:01:43.966] next [18:01:43.966] invokeRestart(restart) [18:01:43.966] muffled <- TRUE [18:01:43.966] break [18:01:43.966] } [18:01:43.966] } [18:01:43.966] } [18:01:43.966] invisible(muffled) [18:01:43.966] } [18:01:43.966] muffleCondition(cond, pattern = "^muffle") [18:01:43.966] } [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] if (TRUE) { [18:01:43.966] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.966] { [18:01:43.966] inherits <- base::inherits [18:01:43.966] invokeRestart <- base::invokeRestart [18:01:43.966] is.null <- base::is.null [18:01:43.966] muffled <- FALSE [18:01:43.966] if (inherits(cond, "message")) { [18:01:43.966] muffled <- grepl(pattern, "muffleMessage") [18:01:43.966] if (muffled) [18:01:43.966] invokeRestart("muffleMessage") [18:01:43.966] } [18:01:43.966] else if (inherits(cond, "warning")) { [18:01:43.966] muffled <- grepl(pattern, "muffleWarning") [18:01:43.966] if (muffled) [18:01:43.966] invokeRestart("muffleWarning") [18:01:43.966] } [18:01:43.966] else if (inherits(cond, "condition")) { [18:01:43.966] if (!is.null(pattern)) { [18:01:43.966] computeRestarts <- base::computeRestarts [18:01:43.966] grepl <- base::grepl [18:01:43.966] restarts <- computeRestarts(cond) [18:01:43.966] for (restart in restarts) { [18:01:43.966] name <- restart$name [18:01:43.966] if (is.null(name)) [18:01:43.966] next [18:01:43.966] if (!grepl(pattern, name)) [18:01:43.966] next [18:01:43.966] invokeRestart(restart) [18:01:43.966] muffled <- TRUE [18:01:43.966] break [18:01:43.966] } [18:01:43.966] } [18:01:43.966] } [18:01:43.966] invisible(muffled) [18:01:43.966] } [18:01:43.966] muffleCondition(cond, pattern = "^muffle") [18:01:43.966] } [18:01:43.966] } [18:01:43.966] } [18:01:43.966] })) [18:01:43.966] }, error = function(ex) { [18:01:43.966] base::structure(base::list(value = NULL, visible = NULL, [18:01:43.966] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.966] ...future.rng), started = ...future.startTime, [18:01:43.966] finished = Sys.time(), session_uuid = NA_character_, [18:01:43.966] version = "1.8"), class = "FutureResult") [18:01:43.966] }, finally = { [18:01:43.966] if (!identical(...future.workdir, getwd())) [18:01:43.966] setwd(...future.workdir) [18:01:43.966] { [18:01:43.966] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:43.966] ...future.oldOptions$nwarnings <- NULL [18:01:43.966] } [18:01:43.966] base::options(...future.oldOptions) [18:01:43.966] if (.Platform$OS.type == "windows") { [18:01:43.966] old_names <- names(...future.oldEnvVars) [18:01:43.966] envs <- base::Sys.getenv() [18:01:43.966] names <- names(envs) [18:01:43.966] common <- intersect(names, old_names) [18:01:43.966] added <- setdiff(names, old_names) [18:01:43.966] removed <- setdiff(old_names, names) [18:01:43.966] changed <- common[...future.oldEnvVars[common] != [18:01:43.966] envs[common]] [18:01:43.966] NAMES <- toupper(changed) [18:01:43.966] args <- list() [18:01:43.966] for (kk in seq_along(NAMES)) { [18:01:43.966] name <- changed[[kk]] [18:01:43.966] NAME <- NAMES[[kk]] [18:01:43.966] if (name != NAME && is.element(NAME, old_names)) [18:01:43.966] next [18:01:43.966] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.966] } [18:01:43.966] NAMES <- toupper(added) [18:01:43.966] for (kk in seq_along(NAMES)) { [18:01:43.966] name <- added[[kk]] [18:01:43.966] NAME <- NAMES[[kk]] [18:01:43.966] if (name != NAME && is.element(NAME, old_names)) [18:01:43.966] next [18:01:43.966] args[[name]] <- "" [18:01:43.966] } [18:01:43.966] NAMES <- toupper(removed) [18:01:43.966] for (kk in seq_along(NAMES)) { [18:01:43.966] name <- removed[[kk]] [18:01:43.966] NAME <- NAMES[[kk]] [18:01:43.966] if (name != NAME && is.element(NAME, old_names)) [18:01:43.966] next [18:01:43.966] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.966] } [18:01:43.966] if (length(args) > 0) [18:01:43.966] base::do.call(base::Sys.setenv, args = args) [18:01:43.966] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:43.966] } [18:01:43.966] { [18:01:43.966] if (base::length(...future.futureOptionsAdded) > [18:01:43.966] 0L) { [18:01:43.966] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:43.966] base::names(opts) <- ...future.futureOptionsAdded [18:01:43.966] base::options(opts) [18:01:43.966] } [18:01:43.966] { [18:01:43.966] { [18:01:43.966] NULL [18:01:43.966] RNGkind("Mersenne-Twister") [18:01:43.966] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:43.966] inherits = FALSE) [18:01:43.966] } [18:01:43.966] options(future.plan = NULL) [18:01:43.966] if (is.na(NA_character_)) [18:01:43.966] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.966] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:43.966] future::plan(list(function (..., envir = parent.frame()) [18:01:43.966] { [18:01:43.966] future <- SequentialFuture(..., envir = envir) [18:01:43.966] if (!future$lazy) [18:01:43.966] future <- run(future) [18:01:43.966] invisible(future) [18:01:43.966] }), .cleanup = FALSE, .init = FALSE) [18:01:43.966] } [18:01:43.966] } [18:01:43.966] } [18:01:43.966] }) [18:01:43.966] if (TRUE) { [18:01:43.966] base::sink(type = "output", split = FALSE) [18:01:43.966] if (TRUE) { [18:01:43.966] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:43.966] } [18:01:43.966] else { [18:01:43.966] ...future.result["stdout"] <- base::list(NULL) [18:01:43.966] } [18:01:43.966] base::close(...future.stdout) [18:01:43.966] ...future.stdout <- NULL [18:01:43.966] } [18:01:43.966] ...future.result$conditions <- ...future.conditions [18:01:43.966] ...future.result$finished <- base::Sys.time() [18:01:43.966] ...future.result [18:01:43.966] } [18:01:43.970] assign_globals() ... [18:01:43.970] List of 1 [18:01:43.970] $ data:'data.frame': 5 obs. of 2 variables: [18:01:43.970] ..$ x: int [1:5] 1 2 3 4 5 [18:01:43.970] ..$ y: int [1:5] 1 2 3 4 5 [18:01:43.970] - attr(*, "where")=List of 1 [18:01:43.970] ..$ data: [18:01:43.970] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [18:01:43.970] - attr(*, "resolved")= logi FALSE [18:01:43.970] - attr(*, "total_size")= num 160 [18:01:43.970] - attr(*, "already-done")= logi TRUE [18:01:43.977] - copied 'data' to environment [18:01:43.977] assign_globals() ... done [18:01:43.977] plan(): Setting new future strategy stack: [18:01:43.977] List of future strategies: [18:01:43.977] 1. sequential: [18:01:43.977] - args: function (..., envir = parent.frame()) [18:01:43.977] - tweaked: FALSE [18:01:43.977] - call: NULL [18:01:43.978] plan(): nbrOfWorkers() = 1 [18:01:43.979] plan(): Setting new future strategy stack: [18:01:43.979] List of future strategies: [18:01:43.979] 1. sequential: [18:01:43.979] - args: function (..., envir = parent.frame()) [18:01:43.979] - tweaked: FALSE [18:01:43.979] - call: plan(strategy) [18:01:43.980] plan(): nbrOfWorkers() = 1 [18:01:43.980] SequentialFuture started (and completed) [18:01:43.980] - Launch lazy future ... done [18:01:43.980] run() for 'SequentialFuture' ... done [18:01:43.981] plan(): Setting new future strategy stack: [18:01:43.981] List of future strategies: [18:01:43.981] 1. sequential: [18:01:43.981] - args: function (..., envir = parent.frame()) [18:01:43.981] - tweaked: FALSE [18:01:43.981] - call: plan(list(sequential, strategy)) [18:01:43.981] 2. sequential: [18:01:43.981] - args: function (..., envir = parent.frame()) [18:01:43.981] - tweaked: FALSE [18:01:43.981] - call: plan(list(sequential, strategy)) [18:01:43.982] plan(): nbrOfWorkers() = 1 [18:01:43.982] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:43.982] Searching for globals... [18:01:43.990] - globals found: [8] '{', '<-', '$', 'subset', 'data', '<', 'x', '%<-%' [18:01:43.990] Searching for globals ... DONE [18:01:43.990] Resolving globals: FALSE [18:01:43.991] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:43.991] The total size of the 1 globals exported for future expression ('{; a %<-% subset(data, x < 3)$y; a; }') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:43.992] - globals: [1] 'data' [18:01:43.992] - packages: [1] 'future' [18:01:43.992] getGlobalsAndPackages() ... DONE [18:01:43.992] run() for 'Future' ... [18:01:43.993] - state: 'created' [18:01:43.993] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:43.993] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:43.993] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:43.994] - Field: 'label' [18:01:43.994] - Field: 'local' [18:01:43.994] - Field: 'owner' [18:01:43.994] - Field: 'envir' [18:01:43.994] - Field: 'packages' [18:01:43.994] - Field: 'gc' [18:01:43.995] - Field: 'conditions' [18:01:43.995] - Field: 'expr' [18:01:43.995] - Field: 'uuid' [18:01:43.995] - Field: 'seed' [18:01:43.995] - Field: 'version' [18:01:43.996] - Field: 'result' [18:01:43.996] - Field: 'asynchronous' [18:01:43.996] - Field: 'calls' [18:01:43.996] - Field: 'globals' [18:01:43.996] - Field: 'stdout' [18:01:43.996] - Field: 'earlySignal' [18:01:43.997] - Field: 'lazy' [18:01:43.997] - Field: 'state' [18:01:43.997] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:43.997] - Launch lazy future ... [18:01:43.997] Packages needed by the future expression (n = 1): 'future' [18:01:43.998] Packages needed by future strategies (n = 1): 'future' [18:01:43.998] { [18:01:43.998] { [18:01:43.998] { [18:01:43.998] ...future.startTime <- base::Sys.time() [18:01:43.998] { [18:01:43.998] { [18:01:43.998] { [18:01:43.998] { [18:01:43.998] base::local({ [18:01:43.998] has_future <- base::requireNamespace("future", [18:01:43.998] quietly = TRUE) [18:01:43.998] if (has_future) { [18:01:43.998] ns <- base::getNamespace("future") [18:01:43.998] version <- ns[[".package"]][["version"]] [18:01:43.998] if (is.null(version)) [18:01:43.998] version <- utils::packageVersion("future") [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] version <- NULL [18:01:43.998] } [18:01:43.998] if (!has_future || version < "1.8.0") { [18:01:43.998] info <- base::c(r_version = base::gsub("R version ", [18:01:43.998] "", base::R.version$version.string), [18:01:43.998] platform = base::sprintf("%s (%s-bit)", [18:01:43.998] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:43.998] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:43.998] "release", "version")], collapse = " "), [18:01:43.998] hostname = base::Sys.info()[["nodename"]]) [18:01:43.998] info <- base::sprintf("%s: %s", base::names(info), [18:01:43.998] info) [18:01:43.998] info <- base::paste(info, collapse = "; ") [18:01:43.998] if (!has_future) { [18:01:43.998] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:43.998] info) [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:43.998] info, version) [18:01:43.998] } [18:01:43.998] base::stop(msg) [18:01:43.998] } [18:01:43.998] }) [18:01:43.998] } [18:01:43.998] base::local({ [18:01:43.998] for (pkg in "future") { [18:01:43.998] base::loadNamespace(pkg) [18:01:43.998] base::library(pkg, character.only = TRUE) [18:01:43.998] } [18:01:43.998] }) [18:01:43.998] } [18:01:43.998] options(future.plan = NULL) [18:01:43.998] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.998] future::plan(list(function (..., envir = parent.frame()) [18:01:43.998] { [18:01:43.998] future <- SequentialFuture(..., envir = envir) [18:01:43.998] if (!future$lazy) [18:01:43.998] future <- run(future) [18:01:43.998] invisible(future) [18:01:43.998] }), .cleanup = FALSE, .init = FALSE) [18:01:43.998] } [18:01:43.998] ...future.workdir <- getwd() [18:01:43.998] } [18:01:43.998] ...future.oldOptions <- base::as.list(base::.Options) [18:01:43.998] ...future.oldEnvVars <- base::Sys.getenv() [18:01:43.998] } [18:01:43.998] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:43.998] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:43.998] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:43.998] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:43.998] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:43.998] future.stdout.windows.reencode = NULL, width = 80L) [18:01:43.998] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:43.998] base::names(...future.oldOptions)) [18:01:43.998] } [18:01:43.998] if (FALSE) { [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] if (TRUE) { [18:01:43.998] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:43.998] open = "w") [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:43.998] windows = "NUL", "/dev/null"), open = "w") [18:01:43.998] } [18:01:43.998] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:43.998] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:43.998] base::sink(type = "output", split = FALSE) [18:01:43.998] base::close(...future.stdout) [18:01:43.998] }, add = TRUE) [18:01:43.998] } [18:01:43.998] ...future.frame <- base::sys.nframe() [18:01:43.998] ...future.conditions <- base::list() [18:01:43.998] ...future.rng <- base::globalenv()$.Random.seed [18:01:43.998] if (FALSE) { [18:01:43.998] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:43.998] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:43.998] } [18:01:43.998] ...future.result <- base::tryCatch({ [18:01:43.998] base::withCallingHandlers({ [18:01:43.998] ...future.value <- base::withVisible(base::local({ [18:01:43.998] a %<-% subset(data, x < 3)$y [18:01:43.998] a [18:01:43.998] })) [18:01:43.998] future::FutureResult(value = ...future.value$value, [18:01:43.998] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.998] ...future.rng), globalenv = if (FALSE) [18:01:43.998] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:43.998] ...future.globalenv.names)) [18:01:43.998] else NULL, started = ...future.startTime, version = "1.8") [18:01:43.998] }, condition = base::local({ [18:01:43.998] c <- base::c [18:01:43.998] inherits <- base::inherits [18:01:43.998] invokeRestart <- base::invokeRestart [18:01:43.998] length <- base::length [18:01:43.998] list <- base::list [18:01:43.998] seq.int <- base::seq.int [18:01:43.998] signalCondition <- base::signalCondition [18:01:43.998] sys.calls <- base::sys.calls [18:01:43.998] `[[` <- base::`[[` [18:01:43.998] `+` <- base::`+` [18:01:43.998] `<<-` <- base::`<<-` [18:01:43.998] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:43.998] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:43.998] 3L)] [18:01:43.998] } [18:01:43.998] function(cond) { [18:01:43.998] is_error <- inherits(cond, "error") [18:01:43.998] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:43.998] NULL) [18:01:43.998] if (is_error) { [18:01:43.998] sessionInformation <- function() { [18:01:43.998] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:43.998] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:43.998] search = base::search(), system = base::Sys.info()) [18:01:43.998] } [18:01:43.998] ...future.conditions[[length(...future.conditions) + [18:01:43.998] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:43.998] cond$call), session = sessionInformation(), [18:01:43.998] timestamp = base::Sys.time(), signaled = 0L) [18:01:43.998] signalCondition(cond) [18:01:43.998] } [18:01:43.998] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:43.998] "immediateCondition"))) { [18:01:43.998] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:43.998] ...future.conditions[[length(...future.conditions) + [18:01:43.998] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:43.998] if (TRUE && !signal) { [18:01:43.998] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.998] { [18:01:43.998] inherits <- base::inherits [18:01:43.998] invokeRestart <- base::invokeRestart [18:01:43.998] is.null <- base::is.null [18:01:43.998] muffled <- FALSE [18:01:43.998] if (inherits(cond, "message")) { [18:01:43.998] muffled <- grepl(pattern, "muffleMessage") [18:01:43.998] if (muffled) [18:01:43.998] invokeRestart("muffleMessage") [18:01:43.998] } [18:01:43.998] else if (inherits(cond, "warning")) { [18:01:43.998] muffled <- grepl(pattern, "muffleWarning") [18:01:43.998] if (muffled) [18:01:43.998] invokeRestart("muffleWarning") [18:01:43.998] } [18:01:43.998] else if (inherits(cond, "condition")) { [18:01:43.998] if (!is.null(pattern)) { [18:01:43.998] computeRestarts <- base::computeRestarts [18:01:43.998] grepl <- base::grepl [18:01:43.998] restarts <- computeRestarts(cond) [18:01:43.998] for (restart in restarts) { [18:01:43.998] name <- restart$name [18:01:43.998] if (is.null(name)) [18:01:43.998] next [18:01:43.998] if (!grepl(pattern, name)) [18:01:43.998] next [18:01:43.998] invokeRestart(restart) [18:01:43.998] muffled <- TRUE [18:01:43.998] break [18:01:43.998] } [18:01:43.998] } [18:01:43.998] } [18:01:43.998] invisible(muffled) [18:01:43.998] } [18:01:43.998] muffleCondition(cond, pattern = "^muffle") [18:01:43.998] } [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] if (TRUE) { [18:01:43.998] muffleCondition <- function (cond, pattern = "^muffle") [18:01:43.998] { [18:01:43.998] inherits <- base::inherits [18:01:43.998] invokeRestart <- base::invokeRestart [18:01:43.998] is.null <- base::is.null [18:01:43.998] muffled <- FALSE [18:01:43.998] if (inherits(cond, "message")) { [18:01:43.998] muffled <- grepl(pattern, "muffleMessage") [18:01:43.998] if (muffled) [18:01:43.998] invokeRestart("muffleMessage") [18:01:43.998] } [18:01:43.998] else if (inherits(cond, "warning")) { [18:01:43.998] muffled <- grepl(pattern, "muffleWarning") [18:01:43.998] if (muffled) [18:01:43.998] invokeRestart("muffleWarning") [18:01:43.998] } [18:01:43.998] else if (inherits(cond, "condition")) { [18:01:43.998] if (!is.null(pattern)) { [18:01:43.998] computeRestarts <- base::computeRestarts [18:01:43.998] grepl <- base::grepl [18:01:43.998] restarts <- computeRestarts(cond) [18:01:43.998] for (restart in restarts) { [18:01:43.998] name <- restart$name [18:01:43.998] if (is.null(name)) [18:01:43.998] next [18:01:43.998] if (!grepl(pattern, name)) [18:01:43.998] next [18:01:43.998] invokeRestart(restart) [18:01:43.998] muffled <- TRUE [18:01:43.998] break [18:01:43.998] } [18:01:43.998] } [18:01:43.998] } [18:01:43.998] invisible(muffled) [18:01:43.998] } [18:01:43.998] muffleCondition(cond, pattern = "^muffle") [18:01:43.998] } [18:01:43.998] } [18:01:43.998] } [18:01:43.998] })) [18:01:43.998] }, error = function(ex) { [18:01:43.998] base::structure(base::list(value = NULL, visible = NULL, [18:01:43.998] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:43.998] ...future.rng), started = ...future.startTime, [18:01:43.998] finished = Sys.time(), session_uuid = NA_character_, [18:01:43.998] version = "1.8"), class = "FutureResult") [18:01:43.998] }, finally = { [18:01:43.998] if (!identical(...future.workdir, getwd())) [18:01:43.998] setwd(...future.workdir) [18:01:43.998] { [18:01:43.998] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:43.998] ...future.oldOptions$nwarnings <- NULL [18:01:43.998] } [18:01:43.998] base::options(...future.oldOptions) [18:01:43.998] if (.Platform$OS.type == "windows") { [18:01:43.998] old_names <- names(...future.oldEnvVars) [18:01:43.998] envs <- base::Sys.getenv() [18:01:43.998] names <- names(envs) [18:01:43.998] common <- intersect(names, old_names) [18:01:43.998] added <- setdiff(names, old_names) [18:01:43.998] removed <- setdiff(old_names, names) [18:01:43.998] changed <- common[...future.oldEnvVars[common] != [18:01:43.998] envs[common]] [18:01:43.998] NAMES <- toupper(changed) [18:01:43.998] args <- list() [18:01:43.998] for (kk in seq_along(NAMES)) { [18:01:43.998] name <- changed[[kk]] [18:01:43.998] NAME <- NAMES[[kk]] [18:01:43.998] if (name != NAME && is.element(NAME, old_names)) [18:01:43.998] next [18:01:43.998] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.998] } [18:01:43.998] NAMES <- toupper(added) [18:01:43.998] for (kk in seq_along(NAMES)) { [18:01:43.998] name <- added[[kk]] [18:01:43.998] NAME <- NAMES[[kk]] [18:01:43.998] if (name != NAME && is.element(NAME, old_names)) [18:01:43.998] next [18:01:43.998] args[[name]] <- "" [18:01:43.998] } [18:01:43.998] NAMES <- toupper(removed) [18:01:43.998] for (kk in seq_along(NAMES)) { [18:01:43.998] name <- removed[[kk]] [18:01:43.998] NAME <- NAMES[[kk]] [18:01:43.998] if (name != NAME && is.element(NAME, old_names)) [18:01:43.998] next [18:01:43.998] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:43.998] } [18:01:43.998] if (length(args) > 0) [18:01:43.998] base::do.call(base::Sys.setenv, args = args) [18:01:43.998] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:43.998] } [18:01:43.998] { [18:01:43.998] if (base::length(...future.futureOptionsAdded) > [18:01:43.998] 0L) { [18:01:43.998] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:43.998] base::names(opts) <- ...future.futureOptionsAdded [18:01:43.998] base::options(opts) [18:01:43.998] } [18:01:43.998] { [18:01:43.998] { [18:01:43.998] NULL [18:01:43.998] RNGkind("Mersenne-Twister") [18:01:43.998] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:43.998] inherits = FALSE) [18:01:43.998] } [18:01:43.998] options(future.plan = NULL) [18:01:43.998] if (is.na(NA_character_)) [18:01:43.998] Sys.unsetenv("R_FUTURE_PLAN") [18:01:43.998] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:43.998] future::plan(list(function (..., envir = parent.frame()) [18:01:43.998] { [18:01:43.998] future <- SequentialFuture(..., envir = envir) [18:01:43.998] if (!future$lazy) [18:01:43.998] future <- run(future) [18:01:43.998] invisible(future) [18:01:43.998] }, function (..., envir = parent.frame()) [18:01:43.998] { [18:01:43.998] future <- SequentialFuture(..., envir = envir) [18:01:43.998] if (!future$lazy) [18:01:43.998] future <- run(future) [18:01:43.998] invisible(future) [18:01:43.998] }), .cleanup = FALSE, .init = FALSE) [18:01:43.998] } [18:01:43.998] } [18:01:43.998] } [18:01:43.998] }) [18:01:43.998] if (TRUE) { [18:01:43.998] base::sink(type = "output", split = FALSE) [18:01:43.998] if (TRUE) { [18:01:43.998] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:43.998] } [18:01:43.998] else { [18:01:43.998] ...future.result["stdout"] <- base::list(NULL) [18:01:43.998] } [18:01:43.998] base::close(...future.stdout) [18:01:43.998] ...future.stdout <- NULL [18:01:43.998] } [18:01:43.998] ...future.result$conditions <- ...future.conditions [18:01:43.998] ...future.result$finished <- base::Sys.time() [18:01:43.998] ...future.result [18:01:43.998] } [18:01:44.002] assign_globals() ... [18:01:44.002] List of 1 [18:01:44.002] $ data:'data.frame': 5 obs. of 2 variables: [18:01:44.002] ..$ x: int [1:5] 1 2 3 4 5 [18:01:44.002] ..$ y: int [1:5] 1 2 3 4 5 [18:01:44.002] - attr(*, "where")=List of 1 [18:01:44.002] ..$ data: [18:01:44.002] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [18:01:44.002] - attr(*, "resolved")= logi FALSE [18:01:44.002] - attr(*, "total_size")= num 160 [18:01:44.002] - attr(*, "already-done")= logi TRUE [18:01:44.006] - copied 'data' to environment [18:01:44.006] assign_globals() ... done [18:01:44.007] plan(): Setting new future strategy stack: [18:01:44.007] List of future strategies: [18:01:44.007] 1. sequential: [18:01:44.007] - args: function (..., envir = parent.frame()) [18:01:44.007] - tweaked: FALSE [18:01:44.007] - call: plan(list(sequential, strategy)) [18:01:44.008] plan(): nbrOfWorkers() = 1 [18:01:44.048] plan(): Setting new future strategy stack: [18:01:44.048] List of future strategies: [18:01:44.048] 1. sequential: [18:01:44.048] - args: function (..., envir = parent.frame()) [18:01:44.048] - tweaked: FALSE [18:01:44.048] - call: plan(list(sequential, strategy)) [18:01:44.048] 2. sequential: [18:01:44.048] - args: function (..., envir = parent.frame()) [18:01:44.048] - tweaked: FALSE [18:01:44.048] - call: plan(list(sequential, strategy)) [18:01:44.049] plan(): nbrOfWorkers() = 1 [18:01:44.049] SequentialFuture started (and completed) [18:01:44.049] signalConditions() ... [18:01:44.049] - include = 'immediateCondition' [18:01:44.050] - exclude = [18:01:44.050] - resignal = FALSE [18:01:44.050] - Number of conditions: 53 [18:01:44.050] signalConditions() ... done [18:01:44.050] - Launch lazy future ... done [18:01:44.050] run() for 'SequentialFuture' ... done [18:01:44.051] signalConditions() ... [18:01:44.051] - include = 'immediateCondition' [18:01:44.051] - exclude = [18:01:44.051] - resignal = FALSE [18:01:44.051] - Number of conditions: 53 [18:01:44.052] signalConditions() ... done [18:01:44.052] Future state: 'finished' [18:01:44.052] signalConditions() ... [18:01:44.052] - include = 'condition' [18:01:44.052] - exclude = 'immediateCondition' [18:01:44.052] - resignal = TRUE [18:01:44.053] - Number of conditions: 53 [18:01:44.053] - Condition #1: 'simpleMessage', 'message', 'condition' [18:01:44.008] getGlobalsAndPackages() ... [18:01:44.053] - Condition #2: 'deprecatedWarning', 'warning', 'condition' Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:44.053] - Condition #3: 'simpleMessage', 'message', 'condition' [18:01:44.025] Searching for globals... [18:01:44.053] - Condition #4: 'simpleMessage', 'message', 'condition' [18:01:44.026] - globals found: [5] '$', 'subset', 'data', '<', 'x' [18:01:44.054] - Condition #5: 'simpleMessage', 'message', 'condition' [18:01:44.026] Searching for globals ... DONE [18:01:44.054] - Condition #6: 'simpleMessage', 'message', 'condition' [18:01:44.027] Resolving globals: FALSE [18:01:44.054] - Condition #7: 'simpleMessage', 'message', 'condition' [18:01:44.027] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:44.054] - Condition #8: 'simpleMessage', 'message', 'condition' [18:01:44.028] The total size of the 1 globals exported for future expression ('subset(data, x < 3)$y') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:44.055] - Condition #9: 'simpleMessage', 'message', 'condition' [18:01:44.028] - globals: [1] 'data' [18:01:44.055] - Condition #10: 'simpleMessage', 'message', 'condition' [18:01:44.028] [18:01:44.055] - Condition #11: 'simpleMessage', 'message', 'condition' [18:01:44.028] getGlobalsAndPackages() ... DONE [18:01:44.055] - Condition #12: 'simpleMessage', 'message', 'condition' [18:01:44.029] run() for 'Future' ... [18:01:44.055] - Condition #13: 'simpleMessage', 'message', 'condition' [18:01:44.029] - state: 'created' [18:01:44.056] - Condition #14: 'simpleMessage', 'message', 'condition' [18:01:44.029] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:44.056] - Condition #15: 'simpleMessage', 'message', 'condition' [18:01:44.030] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:44.056] - Condition #16: 'simpleMessage', 'message', 'condition' [18:01:44.030] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:44.056] - Condition #17: 'simpleMessage', 'message', 'condition' [18:01:44.030] - Field: 'label' [18:01:44.057] - Condition #18: 'simpleMessage', 'message', 'condition' [18:01:44.030] - Field: 'local' [18:01:44.057] - Condition #19: 'simpleMessage', 'message', 'condition' [18:01:44.030] - Field: 'owner' [18:01:44.057] - Condition #20: 'simpleMessage', 'message', 'condition' [18:01:44.031] - Field: 'envir' [18:01:44.057] - Condition #21: 'simpleMessage', 'message', 'condition' [18:01:44.031] - Field: 'packages' [18:01:44.057] - Condition #22: 'simpleMessage', 'message', 'condition' [18:01:44.031] - Field: 'gc' [18:01:44.058] - Condition #23: 'simpleMessage', 'message', 'condition' [18:01:44.031] - Field: 'conditions' [18:01:44.058] - Condition #24: 'simpleMessage', 'message', 'condition' [18:01:44.031] - Field: 'expr' [18:01:44.058] - Condition #25: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'uuid' [18:01:44.058] - Condition #26: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'seed' [18:01:44.058] - Condition #27: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'version' [18:01:44.059] - Condition #28: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'result' [18:01:44.059] - Condition #29: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'asynchronous' [18:01:44.059] - Condition #30: 'simpleMessage', 'message', 'condition' [18:01:44.032] - Field: 'calls' [18:01:44.059] - Condition #31: 'simpleMessage', 'message', 'condition' [18:01:44.033] - Field: 'globals' [18:01:44.060] - Condition #32: 'simpleMessage', 'message', 'condition' [18:01:44.033] - Field: 'stdout' [18:01:44.060] - Condition #33: 'simpleMessage', 'message', 'condition' [18:01:44.033] - Field: 'earlySignal' [18:01:44.060] - Condition #34: 'simpleMessage', 'message', 'condition' [18:01:44.033] - Field: 'lazy' [18:01:44.060] - Condition #35: 'simpleMessage', 'message', 'condition' [18:01:44.033] - Field: 'state' [18:01:44.060] - Condition #36: 'simpleMessage', 'message', 'condition' [18:01:44.034] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:44.061] - Condition #37: 'simpleMessage', 'message', 'condition' [18:01:44.034] - Launch lazy future ... [18:01:44.061] - Condition #38: 'simpleMessage', 'message', 'condition' [18:01:44.034] Packages needed by the future expression (n = 0): [18:01:44.061] - Condition #39: 'simpleMessage', 'message', 'condition' [18:01:44.034] Packages needed by future strategies (n = 0): [18:01:44.061] - Condition #40: 'simpleMessage', 'message', 'condition' [18:01:44.035] { [18:01:44.035] { [18:01:44.035] { [18:01:44.035] ...future.startTime <- base::Sys.time() [18:01:44.035] { [18:01:44.035] { [18:01:44.035] { [18:01:44.035] base::local({ [18:01:44.035] has_future <- base::requireNamespace("future", [18:01:44.035] quietly = TRUE) [18:01:44.035] if (has_future) { [18:01:44.035] ns <- base::getNamespace("future") [18:01:44.035] version <- ns[[".package"]][["version"]] [18:01:44.035] if (is.null(version)) [18:01:44.035] version <- utils::packageVersion("future") [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] version <- NULL [18:01:44.035] } [18:01:44.035] if (!has_future || version < "1.8.0") { [18:01:44.035] info <- base::c(r_version = base::gsub("R version ", [18:01:44.035] "", base::R.version$version.string), [18:01:44.035] platform = base::sprintf("%s (%s-bit)", [18:01:44.035] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:44.035] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:44.035] "release", "version")], collapse = " "), [18:01:44.035] hostname = base::Sys.info()[["nodename"]]) [18:01:44.035] info <- base::sprintf("%s: %s", base::names(info), [18:01:44.035] info) [18:01:44.035] info <- base::paste(info, collapse = "; ") [18:01:44.035] if (!has_future) { [18:01:44.035] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:44.035] info) [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:44.035] info, version) [18:01:44.035] } [18:01:44.035] base::stop(msg) [18:01:44.035] } [18:01:44.035] }) [18:01:44.035] } [18:01:44.035] options(future.plan = NULL) [18:01:44.035] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.035] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:44.035] } [18:01:44.035] ...future.workdir <- getwd() [18:01:44.035] } [18:01:44.035] ...future.oldOptions <- base::as.list(base::.Options) [18:01:44.035] ...future.oldEnvVars <- base::Sys.getenv() [18:01:44.035] } [18:01:44.035] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:44.035] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:44.035] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:44.035] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:44.035] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:44.035] future.stdout.windows.reencode = NULL, width = 80L) [18:01:44.035] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:44.035] base::names(...future.oldOptions)) [18:01:44.035] } [18:01:44.035] if (FALSE) { [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] if (TRUE) { [18:01:44.035] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:44.035] open = "w") [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:44.035] windows = "NUL", "/dev/null"), open = "w") [18:01:44.035] } [18:01:44.035] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:44.035] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:44.035] base::sink(type = "output", split = FALSE) [18:01:44.035] base::close(...future.stdout) [18:01:44.035] }, add = TRUE) [18:01:44.035] } [18:01:44.035] ...future.frame <- base::sys.nframe() [18:01:44.035] ...future.conditions <- base::list() [18:01:44.035] ...future.rng <- base::globalenv()$.Random.seed [18:01:44.035] if (FALSE) { [18:01:44.035] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:44.035] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:44.035] } [18:01:44.035] ...future.result <- base::tryCatch({ [18:01:44.035] base::withCallingHandlers({ [18:01:44.035] ...future.value <- base::withVisible(base::local(subset(data, [18:01:44.035] x < 3)$y)) [18:01:44.035] future::FutureResult(value = ...future.value$value, [18:01:44.035] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.035] ...future.rng), globalenv = if (FALSE) [18:01:44.035] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:44.035] ...future.globalenv.names)) [18:01:44.035] else NULL, started = ...future.startTime, version = "1.8") [18:01:44.035] }, condition = base::local({ [18:01:44.035] c <- base::c [18:01:44.035] inherits <- base::inherits [18:01:44.035] invokeRestart <- base::invokeRestart [18:01:44.035] length <- base::length [18:01:44.035] list <- base::list [18:01:44.035] seq.int <- base::seq.int [18:01:44.035] signalCondition <- base::signalCondition [18:01:44.035] sys.calls <- base::sys.calls [18:01:44.035] `[[` <- base::`[[` [18:01:44.035] `+` <- base::`+` [18:01:44.035] `<<-` <- base::`<<-` [18:01:44.035] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:44.035] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:44.035] 3L)] [18:01:44.035] } [18:01:44.035] function(cond) { [18:01:44.035] is_error <- inherits(cond, "error") [18:01:44.035] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:44.035] NULL) [18:01:44.035] if (is_error) { [18:01:44.035] sessionInformation <- function() { [18:01:44.035] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:44.035] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:44.035] search = base::search(), system = base::Sys.info()) [18:01:44.035] } [18:01:44.035] ...future.conditions[[length(...future.conditions) + [18:01:44.035] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:44.035] cond$call), session = sessionInformation(), [18:01:44.035] timestamp = base::Sys.time(), signaled = 0L) [18:01:44.035] signalCondition(cond) [18:01:44.035] } [18:01:44.035] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:44.035] "immediateCondition"))) { [18:01:44.035] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:44.035] ...future.conditions[[length(...future.conditions) + [18:01:44.035] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:44.035] if (TRUE && !signal) { [18:01:44.035] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.035] { [18:01:44.035] inherits <- base::inherits [18:01:44.035] invokeRestart <- base::invokeRestart [18:01:44.035] is.null <- base::is.null [18:01:44.035] muffled <- FALSE [18:01:44.035] if (inherits(cond, "message")) { [18:01:44.035] muffled <- grepl(pattern, "muffleMessage") [18:01:44.035] if (muffled) [18:01:44.035] invokeRestart("muffleMessage") [18:01:44.035] } [18:01:44.035] else if (inherits(cond, "warning")) { [18:01:44.035] muffled <- grepl(pattern, "muffleWarning") [18:01:44.035] if (muffled) [18:01:44.035] invokeRestart("muffleWarning") [18:01:44.035] } [18:01:44.035] else if (inherits(cond, "condition")) { [18:01:44.035] if (!is.null(pattern)) { [18:01:44.035] computeRestarts <- base::computeRestarts [18:01:44.035] grepl <- base::grepl [18:01:44.035] restarts <- computeRestarts(cond) [18:01:44.035] for (restart in restarts) { [18:01:44.035] name <- restart$name [18:01:44.035] if (is.null(name)) [18:01:44.035] next [18:01:44.035] if (!grepl(pattern, name)) [18:01:44.035] next [18:01:44.035] invokeRestart(restart) [18:01:44.035] muffled <- TRUE [18:01:44.035] break [18:01:44.035] } [18:01:44.035] } [18:01:44.035] } [18:01:44.035] invisible(muffled) [18:01:44.035] } [18:01:44.035] muffleCondition(cond, pattern = "^muffle") [18:01:44.035] } [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] if (TRUE) { [18:01:44.035] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.035] { [18:01:44.035] inherits <- base::inherits [18:01:44.035] invokeRestart <- base::invokeRestart [18:01:44.035] is.null <- base::is.null [18:01:44.035] muffled <- FALSE [18:01:44.035] if (inherits(cond, "message")) { [18:01:44.035] muffled <- grepl(pattern, "muffleMessage") [18:01:44.035] if (muffled) [18:01:44.035] invokeRestart("muffleMessage") [18:01:44.035] } [18:01:44.035] else if (inherits(cond, "warning")) { [18:01:44.035] muffled <- grepl(pattern, "muffleWarning") [18:01:44.035] if (muffled) [18:01:44.035] invokeRestart("muffleWarning") [18:01:44.035] } [18:01:44.035] else if (inherits(cond, "condition")) { [18:01:44.035] if (!is.null(pattern)) { [18:01:44.035] computeRestarts <- base::computeRestarts [18:01:44.035] grepl <- base::grepl [18:01:44.035] restarts <- computeRestarts(cond) [18:01:44.035] for (restart in restarts) { [18:01:44.035] name <- restart$name [18:01:44.035] if (is.null(name)) [18:01:44.035] next [18:01:44.035] if (!grepl(pattern, name)) [18:01:44.035] next [18:01:44.035] invokeRestart(restart) [18:01:44.035] muffled <- TRUE [18:01:44.035] break [18:01:44.035] } [18:01:44.035] } [18:01:44.035] } [18:01:44.035] invisible(muffled) [18:01:44.035] } [18:01:44.035] muffleCondition(cond, pattern = "^muffle") [18:01:44.035] } [18:01:44.035] } [18:01:44.035] } [18:01:44.035] })) [18:01:44.035] }, error = function(ex) { [18:01:44.035] base::structure(base::list(value = NULL, visible = NULL, [18:01:44.035] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.035] ...future.rng), started = ...future.startTime, [18:01:44.035] finished = Sys.time(), session_uuid = NA_character_, [18:01:44.035] version = "1.8"), class = "FutureResult") [18:01:44.035] }, finally = { [18:01:44.035] if (!identical(...future.workdir, getwd())) [18:01:44.035] setwd(...future.workdir) [18:01:44.035] { [18:01:44.035] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:44.035] ...future.oldOptions$nwarnings <- NULL [18:01:44.035] } [18:01:44.035] base::options(...future.oldOptions) [18:01:44.035] if (.Platform$OS.type == "windows") { [18:01:44.035] old_names <- names(...future.oldEnvVars) [18:01:44.035] envs <- base::Sys.getenv() [18:01:44.035] names <- names(envs) [18:01:44.035] common <- intersect(names, old_names) [18:01:44.035] added <- setdiff(names, old_names) [18:01:44.035] removed <- setdiff(old_names, names) [18:01:44.035] changed <- common[...future.oldEnvVars[common] != [18:01:44.035] envs[common]] [18:01:44.035] NAMES <- toupper(changed) [18:01:44.035] args <- list() [18:01:44.035] for (kk in seq_along(NAMES)) { [18:01:44.035] name <- changed[[kk]] [18:01:44.035] NAME <- NAMES[[kk]] [18:01:44.035] if (name != NAME && is.element(NAME, old_names)) [18:01:44.035] next [18:01:44.035] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.035] } [18:01:44.035] NAMES <- toupper(added) [18:01:44.035] for (kk in seq_along(NAMES)) { [18:01:44.035] name <- added[[kk]] [18:01:44.035] NAME <- NAMES[[kk]] [18:01:44.035] if (name != NAME && is.element(NAME, old_names)) [18:01:44.035] next [18:01:44.035] args[[name]] <- "" [18:01:44.035] } [18:01:44.035] NAMES <- toupper(removed) [18:01:44.035] for (kk in seq_along(NAMES)) { [18:01:44.035] name <- removed[[kk]] [18:01:44.035] NAME <- NAMES[[kk]] [18:01:44.035] if (name != NAME && is.element(NAME, old_names)) [18:01:44.035] next [18:01:44.035] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.035] } [18:01:44.035] if (length(args) > 0) [18:01:44.035] base::do.call(base::Sys.setenv, args = args) [18:01:44.035] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:44.035] } [18:01:44.035] { [18:01:44.035] if (base::length(...future.futureOptionsAdded) > [18:01:44.035] 0L) { [18:01:44.035] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:44.035] base::names(opts) <- ...future.futureOptionsAdded [18:01:44.035] base::options(opts) [18:01:44.035] } [18:01:44.035] { [18:01:44.035] { [18:01:44.035] NULL [18:01:44.035] RNGkind("Mersenne-Twister") [18:01:44.035] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:44.035] inherits = FALSE) [18:01:44.035] } [18:01:44.035] options(future.plan = NULL) [18:01:44.035] if (is.na(NA_character_)) [18:01:44.035] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.035] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:44.035] future::plan(list(function (..., envir = parent.frame()) [18:01:44.035] { [18:01:44.035] future <- SequentialFuture(..., envir = envir) [18:01:44.035] if (!future$lazy) [18:01:44.035] future <- run(future) [18:01:44.035] invisible(future) [18:01:44.035] }), .cleanup = FALSE, .init = FALSE) [18:01:44.035] } [18:01:44.035] } [18:01:44.035] } [18:01:44.035] }) [18:01:44.035] if (TRUE) { [18:01:44.035] base::sink(type = "output", split = FALSE) [18:01:44.035] if (TRUE) { [18:01:44.035] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:44.035] } [18:01:44.035] else { [18:01:44.035] ...future.result["stdout"] <- base::list(NULL) [18:01:44.035] } [18:01:44.035] base::close(...future.stdout) [18:01:44.035] ...future.stdout <- NULL [18:01:44.035] } [18:01:44.035] ...future.result$conditions <- ...future.conditions [18:01:44.035] ...future.result$finished <- base::Sys.time() [18:01:44.035] ...future.result [18:01:44.035] } [18:01:44.062] - Condition #41: 'simpleMessage', 'message', 'condition' [18:01:44.038] assign_globals() ... [18:01:44.062] - Condition #42: 'simpleMessage', 'message', 'condition' [18:01:44.039] List of 1 [18:01:44.039] $ data:'data.frame': 5 obs. of 2 variables: [18:01:44.039] ..$ x: int [1:5] 1 2 3 4 5 [18:01:44.039] ..$ y: int [1:5] 1 2 3 4 5 [18:01:44.039] - attr(*, "where")=List of 1 [18:01:44.039] ..$ data: [18:01:44.039] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [18:01:44.039] - attr(*, "resolved")= logi FALSE [18:01:44.039] - attr(*, "total_size")= num 160 [18:01:44.039] - attr(*, "already-done")= logi TRUE [18:01:44.062] - Condition #43: 'simpleMessage', 'message', 'condition' [18:01:44.042] - copied 'data' to environment [18:01:44.062] - Condition #44: 'simpleMessage', 'message', 'condition' [18:01:44.043] assign_globals() ... done [18:01:44.062] - Condition #45: 'simpleMessage', 'message', 'condition' [18:01:44.043] plan(): Setting new future strategy stack: [18:01:44.063] - Condition #46: 'simpleMessage', 'message', 'condition' [18:01:44.043] List of future strategies: [18:01:44.043] 1. sequential: [18:01:44.043] - args: function (..., envir = parent.frame()) [18:01:44.043] - tweaked: FALSE [18:01:44.043] - call: NULL [18:01:44.063] - Condition #47: 'simpleMessage', 'message', 'condition' [18:01:44.044] plan(): nbrOfWorkers() = 1 [18:01:44.063] - Condition #48: 'simpleMessage', 'message', 'condition' [18:01:44.045] plan(): Setting new future strategy stack: [18:01:44.063] - Condition #49: 'simpleMessage', 'message', 'condition' [18:01:44.045] List of future strategies: [18:01:44.045] 1. sequential: [18:01:44.045] - args: function (..., envir = parent.frame()) [18:01:44.045] - tweaked: FALSE [18:01:44.045] - call: plan(list(sequential, strategy)) [18:01:44.063] - Condition #50: 'simpleMessage', 'message', 'condition' [18:01:44.046] plan(): nbrOfWorkers() = 1 [18:01:44.064] - Condition #51: 'simpleMessage', 'message', 'condition' [18:01:44.047] SequentialFuture started (and completed) [18:01:44.064] - Condition #52: 'simpleMessage', 'message', 'condition' [18:01:44.047] - Launch lazy future ... done [18:01:44.064] - Condition #53: 'simpleMessage', 'message', 'condition' [18:01:44.047] run() for 'SequentialFuture' ... done [18:01:44.064] signalConditions() ... done - Strategy: sequential ... DONE - Strategy: multisession ... [18:01:44.065] plan(): Setting new future strategy stack: [18:01:44.065] List of future strategies: [18:01:44.065] 1. multisession: [18:01:44.065] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) [18:01:44.065] - tweaked: FALSE [18:01:44.065] - call: plan(strategy) [18:01:44.066] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... [18:01:44.066] multisession: [18:01:44.066] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) [18:01:44.066] - tweaked: FALSE [18:01:44.066] - call: plan(strategy) [18:01:44.070] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:44.071] Not searching for globals [18:01:44.071] - globals: [0] [18:01:44.071] getGlobalsAndPackages() ... DONE [18:01:44.072] [local output] makeClusterPSOCK() ... [18:01:44.101] [local output] Workers: [n = 2] 'localhost', 'localhost' [18:01:44.108] [local output] Base port: 32147 [18:01:44.108] [local output] Getting setup options for 2 cluster nodes ... [18:01:44.109] [local output] - Node 1 of 2 ... [18:01:44.109] [local output] localMachine=TRUE => revtunnel=FALSE [18:01:44.111] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.919464683431.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.919464683431.pid\")"' [18:01:44.548] - Possible to infer worker's PID: TRUE [18:01:44.549] [local output] Rscript port: 32147 [18:01:44.550] [local output] - Node 2 of 2 ... [18:01:44.550] [local output] localMachine=TRUE => revtunnel=FALSE [18:01:44.551] [local output] Rscript port: 32147 [18:01:44.552] [local output] Getting setup options for 2 cluster nodes ... done [18:01:44.552] [local output] - Parallel setup requested for some PSOCK nodes [18:01:44.553] [local output] Setting up PSOCK nodes in parallel [18:01:44.553] List of 36 [18:01:44.553] $ worker : chr "localhost" [18:01:44.553] ..- attr(*, "localhost")= logi TRUE [18:01:44.553] $ master : chr "localhost" [18:01:44.553] $ port : int 32147 [18:01:44.553] $ connectTimeout : num 120 [18:01:44.553] $ timeout : num 120 [18:01:44.553] $ rscript : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\"" [18:01:44.553] $ homogeneous : logi TRUE [18:01:44.553] $ rscript_args : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=globals,NSE.R:37268:CRANWIN3:CRA"| __truncated__ [18:01:44.553] $ rscript_envs : NULL [18:01:44.553] $ rscript_libs : chr [1:2] "D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c" "D:/RCompile/recent/R/library" [18:01:44.553] $ rscript_startup : NULL [18:01:44.553] $ rscript_sh : chr "cmd" [18:01:44.553] $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ... [18:01:44.553] $ methods : logi TRUE [18:01:44.553] $ socketOptions : chr "no-delay" [18:01:44.553] $ useXDR : logi FALSE [18:01:44.553] $ outfile : chr "/dev/null" [18:01:44.553] $ renice : int NA [18:01:44.553] $ rshcmd : NULL [18:01:44.553] $ user : chr(0) [18:01:44.553] $ revtunnel : logi FALSE [18:01:44.553] $ rshlogfile : NULL [18:01:44.553] $ rshopts : chr(0) [18:01:44.553] $ rank : int 1 [18:01:44.553] $ manual : logi FALSE [18:01:44.553] $ dryrun : logi FALSE [18:01:44.553] $ quiet : logi FALSE [18:01:44.553] $ setup_strategy : chr "parallel" [18:01:44.553] $ local_cmd : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__ [18:01:44.553] $ pidfile : chr "D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.919464683431.pid" [18:01:44.553] $ rshcmd_label : NULL [18:01:44.553] $ rsh_call : NULL [18:01:44.553] $ cmd : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__ [18:01:44.553] $ localMachine : logi TRUE [18:01:44.553] $ make_fcn :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), [18:01:44.553] master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", [18:01:44.553] 2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", [18:01:44.553] 30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, [18:01:44.553] rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", [18:01:44.553] "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", [18:01:44.553] "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", [18:01:44.553] "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", [18:01:44.553] FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", [18:01:44.553] NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", [18:01:44.553] NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, [18:01:44.553] setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", [18:01:44.553] "parallel"), action = c("launch", "options"), verbose = FALSE) [18:01:44.553] $ arguments :List of 28 [18:01:44.553] ..$ worker : chr "localhost" [18:01:44.553] ..$ master : NULL [18:01:44.553] ..$ port : int 32147 [18:01:44.553] ..$ connectTimeout : num 120 [18:01:44.553] ..$ timeout : num 120 [18:01:44.553] ..$ rscript : NULL [18:01:44.553] ..$ homogeneous : NULL [18:01:44.553] ..$ rscript_args : NULL [18:01:44.553] ..$ rscript_envs : NULL [18:01:44.553] ..$ rscript_libs : chr [1:2] "D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c" "D:/RCompile/recent/R/library" [18:01:44.553] ..$ rscript_startup : NULL [18:01:44.553] ..$ rscript_sh : chr [1:3] "auto" "cmd" "sh" [18:01:44.553] ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ... [18:01:44.553] ..$ methods : logi TRUE [18:01:44.553] ..$ socketOptions : chr "no-delay" [18:01:44.553] ..$ useXDR : logi FALSE [18:01:44.553] ..$ outfile : chr "/dev/null" [18:01:44.553] ..$ renice : int NA [18:01:44.553] ..$ rshcmd : NULL [18:01:44.553] ..$ user : NULL [18:01:44.553] ..$ revtunnel : logi NA [18:01:44.553] ..$ rshlogfile : NULL [18:01:44.553] ..$ rshopts : NULL [18:01:44.553] ..$ rank : int 1 [18:01:44.553] ..$ manual : logi FALSE [18:01:44.553] ..$ dryrun : logi FALSE [18:01:44.553] ..$ quiet : logi FALSE [18:01:44.553] ..$ setup_strategy : chr "parallel" [18:01:44.553] - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions" [18:01:44.575] [local output] System call to launch all workers: [18:01:44.575] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=globals,NSE.R:37268:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.919464683431.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=32147 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel [18:01:44.575] [local output] Starting PSOCK main server [18:01:44.584] [local output] Workers launched [18:01:44.584] [local output] Waiting for workers to connect back [18:01:44.585] - [local output] 0 workers out of 2 ready [18:01:44.754] - [local output] 0 workers out of 2 ready [18:01:44.755] - [local output] 1 workers out of 2 ready [18:01:44.759] - [local output] 1 workers out of 2 ready [18:01:44.760] - [local output] 2 workers out of 2 ready [18:01:44.760] [local output] Launching of workers completed [18:01:44.760] [local output] Collecting session information from workers [18:01:44.761] [local output] - Worker #1 of 2 [18:01:44.762] [local output] - Worker #2 of 2 [18:01:44.762] [local output] makeClusterPSOCK() ... done [18:01:44.775] Packages needed by the future expression (n = 0): [18:01:44.775] Packages needed by future strategies (n = 0): [18:01:44.776] { [18:01:44.776] { [18:01:44.776] { [18:01:44.776] ...future.startTime <- base::Sys.time() [18:01:44.776] { [18:01:44.776] { [18:01:44.776] { [18:01:44.776] { [18:01:44.776] base::local({ [18:01:44.776] has_future <- base::requireNamespace("future", [18:01:44.776] quietly = TRUE) [18:01:44.776] if (has_future) { [18:01:44.776] ns <- base::getNamespace("future") [18:01:44.776] version <- ns[[".package"]][["version"]] [18:01:44.776] if (is.null(version)) [18:01:44.776] version <- utils::packageVersion("future") [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] version <- NULL [18:01:44.776] } [18:01:44.776] if (!has_future || version < "1.8.0") { [18:01:44.776] info <- base::c(r_version = base::gsub("R version ", [18:01:44.776] "", base::R.version$version.string), [18:01:44.776] platform = base::sprintf("%s (%s-bit)", [18:01:44.776] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:44.776] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:44.776] "release", "version")], collapse = " "), [18:01:44.776] hostname = base::Sys.info()[["nodename"]]) [18:01:44.776] info <- base::sprintf("%s: %s", base::names(info), [18:01:44.776] info) [18:01:44.776] info <- base::paste(info, collapse = "; ") [18:01:44.776] if (!has_future) { [18:01:44.776] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:44.776] info) [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:44.776] info, version) [18:01:44.776] } [18:01:44.776] base::stop(msg) [18:01:44.776] } [18:01:44.776] }) [18:01:44.776] } [18:01:44.776] ...future.mc.cores.old <- base::getOption("mc.cores") [18:01:44.776] base::options(mc.cores = 1L) [18:01:44.776] } [18:01:44.776] options(future.plan = NULL) [18:01:44.776] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.776] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:44.776] } [18:01:44.776] ...future.workdir <- getwd() [18:01:44.776] } [18:01:44.776] ...future.oldOptions <- base::as.list(base::.Options) [18:01:44.776] ...future.oldEnvVars <- base::Sys.getenv() [18:01:44.776] } [18:01:44.776] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:44.776] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:44.776] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:44.776] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:44.776] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:44.776] future.stdout.windows.reencode = NULL, width = 80L) [18:01:44.776] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:44.776] base::names(...future.oldOptions)) [18:01:44.776] } [18:01:44.776] if (FALSE) { [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] if (TRUE) { [18:01:44.776] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:44.776] open = "w") [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:44.776] windows = "NUL", "/dev/null"), open = "w") [18:01:44.776] } [18:01:44.776] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:44.776] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:44.776] base::sink(type = "output", split = FALSE) [18:01:44.776] base::close(...future.stdout) [18:01:44.776] }, add = TRUE) [18:01:44.776] } [18:01:44.776] ...future.frame <- base::sys.nframe() [18:01:44.776] ...future.conditions <- base::list() [18:01:44.776] ...future.rng <- base::globalenv()$.Random.seed [18:01:44.776] if (FALSE) { [18:01:44.776] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:44.776] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:44.776] } [18:01:44.776] ...future.result <- base::tryCatch({ [18:01:44.776] base::withCallingHandlers({ [18:01:44.776] ...future.value <- base::withVisible(base::local({ [18:01:44.776] ...future.makeSendCondition <- local({ [18:01:44.776] sendCondition <- NULL [18:01:44.776] function(frame = 1L) { [18:01:44.776] if (is.function(sendCondition)) [18:01:44.776] return(sendCondition) [18:01:44.776] ns <- getNamespace("parallel") [18:01:44.776] if (exists("sendData", mode = "function", [18:01:44.776] envir = ns)) { [18:01:44.776] parallel_sendData <- get("sendData", mode = "function", [18:01:44.776] envir = ns) [18:01:44.776] envir <- sys.frame(frame) [18:01:44.776] master <- NULL [18:01:44.776] while (!identical(envir, .GlobalEnv) && [18:01:44.776] !identical(envir, emptyenv())) { [18:01:44.776] if (exists("master", mode = "list", envir = envir, [18:01:44.776] inherits = FALSE)) { [18:01:44.776] master <- get("master", mode = "list", [18:01:44.776] envir = envir, inherits = FALSE) [18:01:44.776] if (inherits(master, c("SOCKnode", [18:01:44.776] "SOCK0node"))) { [18:01:44.776] sendCondition <<- function(cond) { [18:01:44.776] data <- list(type = "VALUE", value = cond, [18:01:44.776] success = TRUE) [18:01:44.776] parallel_sendData(master, data) [18:01:44.776] } [18:01:44.776] return(sendCondition) [18:01:44.776] } [18:01:44.776] } [18:01:44.776] frame <- frame + 1L [18:01:44.776] envir <- sys.frame(frame) [18:01:44.776] } [18:01:44.776] } [18:01:44.776] sendCondition <<- function(cond) NULL [18:01:44.776] } [18:01:44.776] }) [18:01:44.776] withCallingHandlers({ [18:01:44.776] NA [18:01:44.776] }, immediateCondition = function(cond) { [18:01:44.776] sendCondition <- ...future.makeSendCondition() [18:01:44.776] sendCondition(cond) [18:01:44.776] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.776] { [18:01:44.776] inherits <- base::inherits [18:01:44.776] invokeRestart <- base::invokeRestart [18:01:44.776] is.null <- base::is.null [18:01:44.776] muffled <- FALSE [18:01:44.776] if (inherits(cond, "message")) { [18:01:44.776] muffled <- grepl(pattern, "muffleMessage") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleMessage") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "warning")) { [18:01:44.776] muffled <- grepl(pattern, "muffleWarning") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleWarning") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "condition")) { [18:01:44.776] if (!is.null(pattern)) { [18:01:44.776] computeRestarts <- base::computeRestarts [18:01:44.776] grepl <- base::grepl [18:01:44.776] restarts <- computeRestarts(cond) [18:01:44.776] for (restart in restarts) { [18:01:44.776] name <- restart$name [18:01:44.776] if (is.null(name)) [18:01:44.776] next [18:01:44.776] if (!grepl(pattern, name)) [18:01:44.776] next [18:01:44.776] invokeRestart(restart) [18:01:44.776] muffled <- TRUE [18:01:44.776] break [18:01:44.776] } [18:01:44.776] } [18:01:44.776] } [18:01:44.776] invisible(muffled) [18:01:44.776] } [18:01:44.776] muffleCondition(cond) [18:01:44.776] }) [18:01:44.776] })) [18:01:44.776] future::FutureResult(value = ...future.value$value, [18:01:44.776] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.776] ...future.rng), globalenv = if (FALSE) [18:01:44.776] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:44.776] ...future.globalenv.names)) [18:01:44.776] else NULL, started = ...future.startTime, version = "1.8") [18:01:44.776] }, condition = base::local({ [18:01:44.776] c <- base::c [18:01:44.776] inherits <- base::inherits [18:01:44.776] invokeRestart <- base::invokeRestart [18:01:44.776] length <- base::length [18:01:44.776] list <- base::list [18:01:44.776] seq.int <- base::seq.int [18:01:44.776] signalCondition <- base::signalCondition [18:01:44.776] sys.calls <- base::sys.calls [18:01:44.776] `[[` <- base::`[[` [18:01:44.776] `+` <- base::`+` [18:01:44.776] `<<-` <- base::`<<-` [18:01:44.776] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:44.776] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:44.776] 3L)] [18:01:44.776] } [18:01:44.776] function(cond) { [18:01:44.776] is_error <- inherits(cond, "error") [18:01:44.776] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:44.776] NULL) [18:01:44.776] if (is_error) { [18:01:44.776] sessionInformation <- function() { [18:01:44.776] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:44.776] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:44.776] search = base::search(), system = base::Sys.info()) [18:01:44.776] } [18:01:44.776] ...future.conditions[[length(...future.conditions) + [18:01:44.776] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:44.776] cond$call), session = sessionInformation(), [18:01:44.776] timestamp = base::Sys.time(), signaled = 0L) [18:01:44.776] signalCondition(cond) [18:01:44.776] } [18:01:44.776] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:44.776] "immediateCondition"))) { [18:01:44.776] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:44.776] ...future.conditions[[length(...future.conditions) + [18:01:44.776] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:44.776] if (TRUE && !signal) { [18:01:44.776] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.776] { [18:01:44.776] inherits <- base::inherits [18:01:44.776] invokeRestart <- base::invokeRestart [18:01:44.776] is.null <- base::is.null [18:01:44.776] muffled <- FALSE [18:01:44.776] if (inherits(cond, "message")) { [18:01:44.776] muffled <- grepl(pattern, "muffleMessage") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleMessage") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "warning")) { [18:01:44.776] muffled <- grepl(pattern, "muffleWarning") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleWarning") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "condition")) { [18:01:44.776] if (!is.null(pattern)) { [18:01:44.776] computeRestarts <- base::computeRestarts [18:01:44.776] grepl <- base::grepl [18:01:44.776] restarts <- computeRestarts(cond) [18:01:44.776] for (restart in restarts) { [18:01:44.776] name <- restart$name [18:01:44.776] if (is.null(name)) [18:01:44.776] next [18:01:44.776] if (!grepl(pattern, name)) [18:01:44.776] next [18:01:44.776] invokeRestart(restart) [18:01:44.776] muffled <- TRUE [18:01:44.776] break [18:01:44.776] } [18:01:44.776] } [18:01:44.776] } [18:01:44.776] invisible(muffled) [18:01:44.776] } [18:01:44.776] muffleCondition(cond, pattern = "^muffle") [18:01:44.776] } [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] if (TRUE) { [18:01:44.776] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.776] { [18:01:44.776] inherits <- base::inherits [18:01:44.776] invokeRestart <- base::invokeRestart [18:01:44.776] is.null <- base::is.null [18:01:44.776] muffled <- FALSE [18:01:44.776] if (inherits(cond, "message")) { [18:01:44.776] muffled <- grepl(pattern, "muffleMessage") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleMessage") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "warning")) { [18:01:44.776] muffled <- grepl(pattern, "muffleWarning") [18:01:44.776] if (muffled) [18:01:44.776] invokeRestart("muffleWarning") [18:01:44.776] } [18:01:44.776] else if (inherits(cond, "condition")) { [18:01:44.776] if (!is.null(pattern)) { [18:01:44.776] computeRestarts <- base::computeRestarts [18:01:44.776] grepl <- base::grepl [18:01:44.776] restarts <- computeRestarts(cond) [18:01:44.776] for (restart in restarts) { [18:01:44.776] name <- restart$name [18:01:44.776] if (is.null(name)) [18:01:44.776] next [18:01:44.776] if (!grepl(pattern, name)) [18:01:44.776] next [18:01:44.776] invokeRestart(restart) [18:01:44.776] muffled <- TRUE [18:01:44.776] break [18:01:44.776] } [18:01:44.776] } [18:01:44.776] } [18:01:44.776] invisible(muffled) [18:01:44.776] } [18:01:44.776] muffleCondition(cond, pattern = "^muffle") [18:01:44.776] } [18:01:44.776] } [18:01:44.776] } [18:01:44.776] })) [18:01:44.776] }, error = function(ex) { [18:01:44.776] base::structure(base::list(value = NULL, visible = NULL, [18:01:44.776] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.776] ...future.rng), started = ...future.startTime, [18:01:44.776] finished = Sys.time(), session_uuid = NA_character_, [18:01:44.776] version = "1.8"), class = "FutureResult") [18:01:44.776] }, finally = { [18:01:44.776] if (!identical(...future.workdir, getwd())) [18:01:44.776] setwd(...future.workdir) [18:01:44.776] { [18:01:44.776] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:44.776] ...future.oldOptions$nwarnings <- NULL [18:01:44.776] } [18:01:44.776] base::options(...future.oldOptions) [18:01:44.776] if (.Platform$OS.type == "windows") { [18:01:44.776] old_names <- names(...future.oldEnvVars) [18:01:44.776] envs <- base::Sys.getenv() [18:01:44.776] names <- names(envs) [18:01:44.776] common <- intersect(names, old_names) [18:01:44.776] added <- setdiff(names, old_names) [18:01:44.776] removed <- setdiff(old_names, names) [18:01:44.776] changed <- common[...future.oldEnvVars[common] != [18:01:44.776] envs[common]] [18:01:44.776] NAMES <- toupper(changed) [18:01:44.776] args <- list() [18:01:44.776] for (kk in seq_along(NAMES)) { [18:01:44.776] name <- changed[[kk]] [18:01:44.776] NAME <- NAMES[[kk]] [18:01:44.776] if (name != NAME && is.element(NAME, old_names)) [18:01:44.776] next [18:01:44.776] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.776] } [18:01:44.776] NAMES <- toupper(added) [18:01:44.776] for (kk in seq_along(NAMES)) { [18:01:44.776] name <- added[[kk]] [18:01:44.776] NAME <- NAMES[[kk]] [18:01:44.776] if (name != NAME && is.element(NAME, old_names)) [18:01:44.776] next [18:01:44.776] args[[name]] <- "" [18:01:44.776] } [18:01:44.776] NAMES <- toupper(removed) [18:01:44.776] for (kk in seq_along(NAMES)) { [18:01:44.776] name <- removed[[kk]] [18:01:44.776] NAME <- NAMES[[kk]] [18:01:44.776] if (name != NAME && is.element(NAME, old_names)) [18:01:44.776] next [18:01:44.776] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.776] } [18:01:44.776] if (length(args) > 0) [18:01:44.776] base::do.call(base::Sys.setenv, args = args) [18:01:44.776] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:44.776] } [18:01:44.776] { [18:01:44.776] if (base::length(...future.futureOptionsAdded) > [18:01:44.776] 0L) { [18:01:44.776] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:44.776] base::names(opts) <- ...future.futureOptionsAdded [18:01:44.776] base::options(opts) [18:01:44.776] } [18:01:44.776] { [18:01:44.776] { [18:01:44.776] base::options(mc.cores = ...future.mc.cores.old) [18:01:44.776] NULL [18:01:44.776] } [18:01:44.776] options(future.plan = NULL) [18:01:44.776] if (is.na(NA_character_)) [18:01:44.776] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.776] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:44.776] future::plan(list(function (..., workers = availableCores(), [18:01:44.776] lazy = FALSE, rscript_libs = .libPaths(), [18:01:44.776] envir = parent.frame()) [18:01:44.776] { [18:01:44.776] if (is.function(workers)) [18:01:44.776] workers <- workers() [18:01:44.776] workers <- structure(as.integer(workers), [18:01:44.776] class = class(workers)) [18:01:44.776] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:44.776] workers >= 1) [18:01:44.776] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:44.776] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:44.776] } [18:01:44.776] future <- MultisessionFuture(..., workers = workers, [18:01:44.776] lazy = lazy, rscript_libs = rscript_libs, [18:01:44.776] envir = envir) [18:01:44.776] if (!future$lazy) [18:01:44.776] future <- run(future) [18:01:44.776] invisible(future) [18:01:44.776] }), .cleanup = FALSE, .init = FALSE) [18:01:44.776] } [18:01:44.776] } [18:01:44.776] } [18:01:44.776] }) [18:01:44.776] if (TRUE) { [18:01:44.776] base::sink(type = "output", split = FALSE) [18:01:44.776] if (TRUE) { [18:01:44.776] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:44.776] } [18:01:44.776] else { [18:01:44.776] ...future.result["stdout"] <- base::list(NULL) [18:01:44.776] } [18:01:44.776] base::close(...future.stdout) [18:01:44.776] ...future.stdout <- NULL [18:01:44.776] } [18:01:44.776] ...future.result$conditions <- ...future.conditions [18:01:44.776] ...future.result$finished <- base::Sys.time() [18:01:44.776] ...future.result [18:01:44.776] } [18:01:44.859] MultisessionFuture started [18:01:44.860] result() for ClusterFuture ... [18:01:44.860] receiveMessageFromWorker() for ClusterFuture ... [18:01:44.861] - Validating connection of MultisessionFuture [18:01:44.921] - received message: FutureResult [18:01:44.921] - Received FutureResult [18:01:44.926] - Erased future from FutureRegistry [18:01:44.926] result() for ClusterFuture ... [18:01:44.927] - result already collected: FutureResult [18:01:44.927] result() for ClusterFuture ... done [18:01:44.927] receiveMessageFromWorker() for ClusterFuture ... done [18:01:44.927] result() for ClusterFuture ... done [18:01:44.928] result() for ClusterFuture ... [18:01:44.928] - result already collected: FutureResult [18:01:44.928] result() for ClusterFuture ... done [18:01:44.928] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE [18:01:44.932] plan(): nbrOfWorkers() = 2 [18:01:44.932] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error' [18:01:44.933] Searching for globals... [18:01:44.934] - globals found: [1] 'getOption' [18:01:44.934] Searching for globals ... DONE [18:01:44.934] Resolving globals: FALSE [18:01:44.934] [18:01:44.935] [18:01:44.935] getGlobalsAndPackages() ... DONE [18:01:44.935] run() for 'Future' ... [18:01:44.935] - state: 'created' [18:01:44.936] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function' [18:01:44.950] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' [18:01:44.950] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... [18:01:44.950] - Field: 'node' [18:01:44.950] - Field: 'label' [18:01:44.950] - Field: 'local' [18:01:44.951] - Field: 'owner' [18:01:44.951] - Field: 'envir' [18:01:44.951] - Field: 'workers' [18:01:44.951] - Field: 'packages' [18:01:44.951] - Field: 'gc' [18:01:44.952] - Field: 'conditions' [18:01:44.952] - Field: 'persistent' [18:01:44.952] - Field: 'expr' [18:01:44.952] - Field: 'uuid' [18:01:44.952] - Field: 'seed' [18:01:44.952] - Field: 'version' [18:01:44.953] - Field: 'result' [18:01:44.953] - Field: 'asynchronous' [18:01:44.953] - Field: 'calls' [18:01:44.953] - Field: 'globals' [18:01:44.953] - Field: 'stdout' [18:01:44.954] - Field: 'earlySignal' [18:01:44.954] - Field: 'lazy' [18:01:44.954] - Field: 'state' [18:01:44.954] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done [18:01:44.954] - Launch lazy future ... [18:01:44.955] Packages needed by the future expression (n = 0): [18:01:44.955] Packages needed by future strategies (n = 0): [18:01:44.956] { [18:01:44.956] { [18:01:44.956] { [18:01:44.956] ...future.startTime <- base::Sys.time() [18:01:44.956] { [18:01:44.956] { [18:01:44.956] { [18:01:44.956] { [18:01:44.956] base::local({ [18:01:44.956] has_future <- base::requireNamespace("future", [18:01:44.956] quietly = TRUE) [18:01:44.956] if (has_future) { [18:01:44.956] ns <- base::getNamespace("future") [18:01:44.956] version <- ns[[".package"]][["version"]] [18:01:44.956] if (is.null(version)) [18:01:44.956] version <- utils::packageVersion("future") [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] version <- NULL [18:01:44.956] } [18:01:44.956] if (!has_future || version < "1.8.0") { [18:01:44.956] info <- base::c(r_version = base::gsub("R version ", [18:01:44.956] "", base::R.version$version.string), [18:01:44.956] platform = base::sprintf("%s (%s-bit)", [18:01:44.956] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:44.956] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:44.956] "release", "version")], collapse = " "), [18:01:44.956] hostname = base::Sys.info()[["nodename"]]) [18:01:44.956] info <- base::sprintf("%s: %s", base::names(info), [18:01:44.956] info) [18:01:44.956] info <- base::paste(info, collapse = "; ") [18:01:44.956] if (!has_future) { [18:01:44.956] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:44.956] info) [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:44.956] info, version) [18:01:44.956] } [18:01:44.956] base::stop(msg) [18:01:44.956] } [18:01:44.956] }) [18:01:44.956] } [18:01:44.956] ...future.mc.cores.old <- base::getOption("mc.cores") [18:01:44.956] base::options(mc.cores = 1L) [18:01:44.956] } [18:01:44.956] options(future.plan = NULL) [18:01:44.956] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.956] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:44.956] } [18:01:44.956] ...future.workdir <- getwd() [18:01:44.956] } [18:01:44.956] ...future.oldOptions <- base::as.list(base::.Options) [18:01:44.956] ...future.oldEnvVars <- base::Sys.getenv() [18:01:44.956] } [18:01:44.956] base::options(future.startup.script = FALSE, future.globals.onMissing = "error", [18:01:44.956] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:44.956] future.globals.onMissing = "error", future.globals.onReference = NULL, [18:01:44.956] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:44.956] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:44.956] future.stdout.windows.reencode = NULL, width = 80L) [18:01:44.956] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:44.956] base::names(...future.oldOptions)) [18:01:44.956] } [18:01:44.956] if (FALSE) { [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] if (TRUE) { [18:01:44.956] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:44.956] open = "w") [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:44.956] windows = "NUL", "/dev/null"), open = "w") [18:01:44.956] } [18:01:44.956] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:44.956] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:44.956] base::sink(type = "output", split = FALSE) [18:01:44.956] base::close(...future.stdout) [18:01:44.956] }, add = TRUE) [18:01:44.956] } [18:01:44.956] ...future.frame <- base::sys.nframe() [18:01:44.956] ...future.conditions <- base::list() [18:01:44.956] ...future.rng <- base::globalenv()$.Random.seed [18:01:44.956] if (FALSE) { [18:01:44.956] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:44.956] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:44.956] } [18:01:44.956] ...future.result <- base::tryCatch({ [18:01:44.956] base::withCallingHandlers({ [18:01:44.956] ...future.value <- base::withVisible(base::local({ [18:01:44.956] ...future.makeSendCondition <- local({ [18:01:44.956] sendCondition <- NULL [18:01:44.956] function(frame = 1L) { [18:01:44.956] if (is.function(sendCondition)) [18:01:44.956] return(sendCondition) [18:01:44.956] ns <- getNamespace("parallel") [18:01:44.956] if (exists("sendData", mode = "function", [18:01:44.956] envir = ns)) { [18:01:44.956] parallel_sendData <- get("sendData", mode = "function", [18:01:44.956] envir = ns) [18:01:44.956] envir <- sys.frame(frame) [18:01:44.956] master <- NULL [18:01:44.956] while (!identical(envir, .GlobalEnv) && [18:01:44.956] !identical(envir, emptyenv())) { [18:01:44.956] if (exists("master", mode = "list", envir = envir, [18:01:44.956] inherits = FALSE)) { [18:01:44.956] master <- get("master", mode = "list", [18:01:44.956] envir = envir, inherits = FALSE) [18:01:44.956] if (inherits(master, c("SOCKnode", [18:01:44.956] "SOCK0node"))) { [18:01:44.956] sendCondition <<- function(cond) { [18:01:44.956] data <- list(type = "VALUE", value = cond, [18:01:44.956] success = TRUE) [18:01:44.956] parallel_sendData(master, data) [18:01:44.956] } [18:01:44.956] return(sendCondition) [18:01:44.956] } [18:01:44.956] } [18:01:44.956] frame <- frame + 1L [18:01:44.956] envir <- sys.frame(frame) [18:01:44.956] } [18:01:44.956] } [18:01:44.956] sendCondition <<- function(cond) NULL [18:01:44.956] } [18:01:44.956] }) [18:01:44.956] withCallingHandlers({ [18:01:44.956] getOption("future.globals.onMissing") [18:01:44.956] }, immediateCondition = function(cond) { [18:01:44.956] sendCondition <- ...future.makeSendCondition() [18:01:44.956] sendCondition(cond) [18:01:44.956] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.956] { [18:01:44.956] inherits <- base::inherits [18:01:44.956] invokeRestart <- base::invokeRestart [18:01:44.956] is.null <- base::is.null [18:01:44.956] muffled <- FALSE [18:01:44.956] if (inherits(cond, "message")) { [18:01:44.956] muffled <- grepl(pattern, "muffleMessage") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleMessage") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "warning")) { [18:01:44.956] muffled <- grepl(pattern, "muffleWarning") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleWarning") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "condition")) { [18:01:44.956] if (!is.null(pattern)) { [18:01:44.956] computeRestarts <- base::computeRestarts [18:01:44.956] grepl <- base::grepl [18:01:44.956] restarts <- computeRestarts(cond) [18:01:44.956] for (restart in restarts) { [18:01:44.956] name <- restart$name [18:01:44.956] if (is.null(name)) [18:01:44.956] next [18:01:44.956] if (!grepl(pattern, name)) [18:01:44.956] next [18:01:44.956] invokeRestart(restart) [18:01:44.956] muffled <- TRUE [18:01:44.956] break [18:01:44.956] } [18:01:44.956] } [18:01:44.956] } [18:01:44.956] invisible(muffled) [18:01:44.956] } [18:01:44.956] muffleCondition(cond) [18:01:44.956] }) [18:01:44.956] })) [18:01:44.956] future::FutureResult(value = ...future.value$value, [18:01:44.956] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.956] ...future.rng), globalenv = if (FALSE) [18:01:44.956] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:44.956] ...future.globalenv.names)) [18:01:44.956] else NULL, started = ...future.startTime, version = "1.8") [18:01:44.956] }, condition = base::local({ [18:01:44.956] c <- base::c [18:01:44.956] inherits <- base::inherits [18:01:44.956] invokeRestart <- base::invokeRestart [18:01:44.956] length <- base::length [18:01:44.956] list <- base::list [18:01:44.956] seq.int <- base::seq.int [18:01:44.956] signalCondition <- base::signalCondition [18:01:44.956] sys.calls <- base::sys.calls [18:01:44.956] `[[` <- base::`[[` [18:01:44.956] `+` <- base::`+` [18:01:44.956] `<<-` <- base::`<<-` [18:01:44.956] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:44.956] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:44.956] 3L)] [18:01:44.956] } [18:01:44.956] function(cond) { [18:01:44.956] is_error <- inherits(cond, "error") [18:01:44.956] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:44.956] NULL) [18:01:44.956] if (is_error) { [18:01:44.956] sessionInformation <- function() { [18:01:44.956] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:44.956] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:44.956] search = base::search(), system = base::Sys.info()) [18:01:44.956] } [18:01:44.956] ...future.conditions[[length(...future.conditions) + [18:01:44.956] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:44.956] cond$call), session = sessionInformation(), [18:01:44.956] timestamp = base::Sys.time(), signaled = 0L) [18:01:44.956] signalCondition(cond) [18:01:44.956] } [18:01:44.956] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:44.956] "immediateCondition"))) { [18:01:44.956] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:44.956] ...future.conditions[[length(...future.conditions) + [18:01:44.956] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:44.956] if (TRUE && !signal) { [18:01:44.956] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.956] { [18:01:44.956] inherits <- base::inherits [18:01:44.956] invokeRestart <- base::invokeRestart [18:01:44.956] is.null <- base::is.null [18:01:44.956] muffled <- FALSE [18:01:44.956] if (inherits(cond, "message")) { [18:01:44.956] muffled <- grepl(pattern, "muffleMessage") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleMessage") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "warning")) { [18:01:44.956] muffled <- grepl(pattern, "muffleWarning") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleWarning") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "condition")) { [18:01:44.956] if (!is.null(pattern)) { [18:01:44.956] computeRestarts <- base::computeRestarts [18:01:44.956] grepl <- base::grepl [18:01:44.956] restarts <- computeRestarts(cond) [18:01:44.956] for (restart in restarts) { [18:01:44.956] name <- restart$name [18:01:44.956] if (is.null(name)) [18:01:44.956] next [18:01:44.956] if (!grepl(pattern, name)) [18:01:44.956] next [18:01:44.956] invokeRestart(restart) [18:01:44.956] muffled <- TRUE [18:01:44.956] break [18:01:44.956] } [18:01:44.956] } [18:01:44.956] } [18:01:44.956] invisible(muffled) [18:01:44.956] } [18:01:44.956] muffleCondition(cond, pattern = "^muffle") [18:01:44.956] } [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] if (TRUE) { [18:01:44.956] muffleCondition <- function (cond, pattern = "^muffle") [18:01:44.956] { [18:01:44.956] inherits <- base::inherits [18:01:44.956] invokeRestart <- base::invokeRestart [18:01:44.956] is.null <- base::is.null [18:01:44.956] muffled <- FALSE [18:01:44.956] if (inherits(cond, "message")) { [18:01:44.956] muffled <- grepl(pattern, "muffleMessage") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleMessage") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "warning")) { [18:01:44.956] muffled <- grepl(pattern, "muffleWarning") [18:01:44.956] if (muffled) [18:01:44.956] invokeRestart("muffleWarning") [18:01:44.956] } [18:01:44.956] else if (inherits(cond, "condition")) { [18:01:44.956] if (!is.null(pattern)) { [18:01:44.956] computeRestarts <- base::computeRestarts [18:01:44.956] grepl <- base::grepl [18:01:44.956] restarts <- computeRestarts(cond) [18:01:44.956] for (restart in restarts) { [18:01:44.956] name <- restart$name [18:01:44.956] if (is.null(name)) [18:01:44.956] next [18:01:44.956] if (!grepl(pattern, name)) [18:01:44.956] next [18:01:44.956] invokeRestart(restart) [18:01:44.956] muffled <- TRUE [18:01:44.956] break [18:01:44.956] } [18:01:44.956] } [18:01:44.956] } [18:01:44.956] invisible(muffled) [18:01:44.956] } [18:01:44.956] muffleCondition(cond, pattern = "^muffle") [18:01:44.956] } [18:01:44.956] } [18:01:44.956] } [18:01:44.956] })) [18:01:44.956] }, error = function(ex) { [18:01:44.956] base::structure(base::list(value = NULL, visible = NULL, [18:01:44.956] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:44.956] ...future.rng), started = ...future.startTime, [18:01:44.956] finished = Sys.time(), session_uuid = NA_character_, [18:01:44.956] version = "1.8"), class = "FutureResult") [18:01:44.956] }, finally = { [18:01:44.956] if (!identical(...future.workdir, getwd())) [18:01:44.956] setwd(...future.workdir) [18:01:44.956] { [18:01:44.956] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:44.956] ...future.oldOptions$nwarnings <- NULL [18:01:44.956] } [18:01:44.956] base::options(...future.oldOptions) [18:01:44.956] if (.Platform$OS.type == "windows") { [18:01:44.956] old_names <- names(...future.oldEnvVars) [18:01:44.956] envs <- base::Sys.getenv() [18:01:44.956] names <- names(envs) [18:01:44.956] common <- intersect(names, old_names) [18:01:44.956] added <- setdiff(names, old_names) [18:01:44.956] removed <- setdiff(old_names, names) [18:01:44.956] changed <- common[...future.oldEnvVars[common] != [18:01:44.956] envs[common]] [18:01:44.956] NAMES <- toupper(changed) [18:01:44.956] args <- list() [18:01:44.956] for (kk in seq_along(NAMES)) { [18:01:44.956] name <- changed[[kk]] [18:01:44.956] NAME <- NAMES[[kk]] [18:01:44.956] if (name != NAME && is.element(NAME, old_names)) [18:01:44.956] next [18:01:44.956] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.956] } [18:01:44.956] NAMES <- toupper(added) [18:01:44.956] for (kk in seq_along(NAMES)) { [18:01:44.956] name <- added[[kk]] [18:01:44.956] NAME <- NAMES[[kk]] [18:01:44.956] if (name != NAME && is.element(NAME, old_names)) [18:01:44.956] next [18:01:44.956] args[[name]] <- "" [18:01:44.956] } [18:01:44.956] NAMES <- toupper(removed) [18:01:44.956] for (kk in seq_along(NAMES)) { [18:01:44.956] name <- removed[[kk]] [18:01:44.956] NAME <- NAMES[[kk]] [18:01:44.956] if (name != NAME && is.element(NAME, old_names)) [18:01:44.956] next [18:01:44.956] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:44.956] } [18:01:44.956] if (length(args) > 0) [18:01:44.956] base::do.call(base::Sys.setenv, args = args) [18:01:44.956] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:44.956] } [18:01:44.956] { [18:01:44.956] if (base::length(...future.futureOptionsAdded) > [18:01:44.956] 0L) { [18:01:44.956] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:44.956] base::names(opts) <- ...future.futureOptionsAdded [18:01:44.956] base::options(opts) [18:01:44.956] } [18:01:44.956] { [18:01:44.956] { [18:01:44.956] base::options(mc.cores = ...future.mc.cores.old) [18:01:44.956] NULL [18:01:44.956] } [18:01:44.956] options(future.plan = NULL) [18:01:44.956] if (is.na(NA_character_)) [18:01:44.956] Sys.unsetenv("R_FUTURE_PLAN") [18:01:44.956] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:44.956] future::plan(list(function (..., workers = availableCores(), [18:01:44.956] lazy = FALSE, rscript_libs = .libPaths(), [18:01:44.956] envir = parent.frame()) [18:01:44.956] { [18:01:44.956] if (is.function(workers)) [18:01:44.956] workers <- workers() [18:01:44.956] workers <- structure(as.integer(workers), [18:01:44.956] class = class(workers)) [18:01:44.956] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:44.956] workers >= 1) [18:01:44.956] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:44.956] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:44.956] } [18:01:44.956] future <- MultisessionFuture(..., workers = workers, [18:01:44.956] lazy = lazy, rscript_libs = rscript_libs, [18:01:44.956] envir = envir) [18:01:44.956] if (!future$lazy) [18:01:44.956] future <- run(future) [18:01:44.956] invisible(future) [18:01:44.956] }), .cleanup = FALSE, .init = FALSE) [18:01:44.956] } [18:01:44.956] } [18:01:44.956] } [18:01:44.956] }) [18:01:44.956] if (TRUE) { [18:01:44.956] base::sink(type = "output", split = FALSE) [18:01:44.956] if (TRUE) { [18:01:44.956] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:44.956] } [18:01:44.956] else { [18:01:44.956] ...future.result["stdout"] <- base::list(NULL) [18:01:44.956] } [18:01:44.956] base::close(...future.stdout) [18:01:44.956] ...future.stdout <- NULL [18:01:44.956] } [18:01:44.956] ...future.result$conditions <- ...future.conditions [18:01:44.956] ...future.result$finished <- base::Sys.time() [18:01:44.956] ...future.result [18:01:44.956] } [18:01:44.962] MultisessionFuture started [18:01:44.962] - Launch lazy future ... done [18:01:44.962] run() for 'MultisessionFuture' ... done [18:01:44.962] result() for ClusterFuture ... [18:01:44.963] receiveMessageFromWorker() for ClusterFuture ... [18:01:44.963] - Validating connection of MultisessionFuture [18:01:44.980] - received message: FutureResult [18:01:44.980] - Received FutureResult [18:01:44.980] - Erased future from FutureRegistry [18:01:44.980] result() for ClusterFuture ... [18:01:44.981] - result already collected: FutureResult [18:01:44.981] result() for ClusterFuture ... done [18:01:44.981] receiveMessageFromWorker() for ClusterFuture ... done [18:01:44.981] result() for ClusterFuture ... done [18:01:44.981] result() for ClusterFuture ... [18:01:44.981] - result already collected: FutureResult [18:01:44.982] result() for ClusterFuture ... done [18:01:44.982] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:44.983] Searching for globals... [18:01:44.983] - globals found: [1] 'getOption' [18:01:44.984] Searching for globals ... DONE [18:01:44.984] Resolving globals: FALSE [18:01:44.984] [18:01:44.984] [18:01:44.985] getGlobalsAndPackages() ... DONE [18:01:44.985] run() for 'Future' ... [18:01:44.985] - state: 'created' [18:01:44.985] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function' [18:01:45.000] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' [18:01:45.000] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... [18:01:45.000] - Field: 'node' [18:01:45.001] - Field: 'label' [18:01:45.001] - Field: 'local' [18:01:45.001] - Field: 'owner' [18:01:45.001] - Field: 'envir' [18:01:45.001] - Field: 'workers' [18:01:45.001] - Field: 'packages' [18:01:45.002] - Field: 'gc' [18:01:45.002] - Field: 'conditions' [18:01:45.002] - Field: 'persistent' [18:01:45.002] - Field: 'expr' [18:01:45.002] - Field: 'uuid' [18:01:45.003] - Field: 'seed' [18:01:45.003] - Field: 'version' [18:01:45.003] - Field: 'result' [18:01:45.003] - Field: 'asynchronous' [18:01:45.003] - Field: 'calls' [18:01:45.004] - Field: 'globals' [18:01:45.004] - Field: 'stdout' [18:01:45.004] - Field: 'earlySignal' [18:01:45.004] - Field: 'lazy' [18:01:45.004] - Field: 'state' [18:01:45.005] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done [18:01:45.005] - Launch lazy future ... [18:01:45.005] Packages needed by the future expression (n = 0): [18:01:45.005] Packages needed by future strategies (n = 0): [18:01:45.006] { [18:01:45.006] { [18:01:45.006] { [18:01:45.006] ...future.startTime <- base::Sys.time() [18:01:45.006] { [18:01:45.006] { [18:01:45.006] { [18:01:45.006] { [18:01:45.006] base::local({ [18:01:45.006] has_future <- base::requireNamespace("future", [18:01:45.006] quietly = TRUE) [18:01:45.006] if (has_future) { [18:01:45.006] ns <- base::getNamespace("future") [18:01:45.006] version <- ns[[".package"]][["version"]] [18:01:45.006] if (is.null(version)) [18:01:45.006] version <- utils::packageVersion("future") [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] version <- NULL [18:01:45.006] } [18:01:45.006] if (!has_future || version < "1.8.0") { [18:01:45.006] info <- base::c(r_version = base::gsub("R version ", [18:01:45.006] "", base::R.version$version.string), [18:01:45.006] platform = base::sprintf("%s (%s-bit)", [18:01:45.006] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:45.006] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:45.006] "release", "version")], collapse = " "), [18:01:45.006] hostname = base::Sys.info()[["nodename"]]) [18:01:45.006] info <- base::sprintf("%s: %s", base::names(info), [18:01:45.006] info) [18:01:45.006] info <- base::paste(info, collapse = "; ") [18:01:45.006] if (!has_future) { [18:01:45.006] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:45.006] info) [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:45.006] info, version) [18:01:45.006] } [18:01:45.006] base::stop(msg) [18:01:45.006] } [18:01:45.006] }) [18:01:45.006] } [18:01:45.006] ...future.mc.cores.old <- base::getOption("mc.cores") [18:01:45.006] base::options(mc.cores = 1L) [18:01:45.006] } [18:01:45.006] options(future.plan = NULL) [18:01:45.006] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.006] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:45.006] } [18:01:45.006] ...future.workdir <- getwd() [18:01:45.006] } [18:01:45.006] ...future.oldOptions <- base::as.list(base::.Options) [18:01:45.006] ...future.oldEnvVars <- base::Sys.getenv() [18:01:45.006] } [18:01:45.006] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:45.006] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:45.006] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:45.006] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:45.006] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:45.006] future.stdout.windows.reencode = NULL, width = 80L) [18:01:45.006] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:45.006] base::names(...future.oldOptions)) [18:01:45.006] } [18:01:45.006] if (FALSE) { [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] if (TRUE) { [18:01:45.006] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:45.006] open = "w") [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:45.006] windows = "NUL", "/dev/null"), open = "w") [18:01:45.006] } [18:01:45.006] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:45.006] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:45.006] base::sink(type = "output", split = FALSE) [18:01:45.006] base::close(...future.stdout) [18:01:45.006] }, add = TRUE) [18:01:45.006] } [18:01:45.006] ...future.frame <- base::sys.nframe() [18:01:45.006] ...future.conditions <- base::list() [18:01:45.006] ...future.rng <- base::globalenv()$.Random.seed [18:01:45.006] if (FALSE) { [18:01:45.006] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:45.006] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:45.006] } [18:01:45.006] ...future.result <- base::tryCatch({ [18:01:45.006] base::withCallingHandlers({ [18:01:45.006] ...future.value <- base::withVisible(base::local({ [18:01:45.006] ...future.makeSendCondition <- local({ [18:01:45.006] sendCondition <- NULL [18:01:45.006] function(frame = 1L) { [18:01:45.006] if (is.function(sendCondition)) [18:01:45.006] return(sendCondition) [18:01:45.006] ns <- getNamespace("parallel") [18:01:45.006] if (exists("sendData", mode = "function", [18:01:45.006] envir = ns)) { [18:01:45.006] parallel_sendData <- get("sendData", mode = "function", [18:01:45.006] envir = ns) [18:01:45.006] envir <- sys.frame(frame) [18:01:45.006] master <- NULL [18:01:45.006] while (!identical(envir, .GlobalEnv) && [18:01:45.006] !identical(envir, emptyenv())) { [18:01:45.006] if (exists("master", mode = "list", envir = envir, [18:01:45.006] inherits = FALSE)) { [18:01:45.006] master <- get("master", mode = "list", [18:01:45.006] envir = envir, inherits = FALSE) [18:01:45.006] if (inherits(master, c("SOCKnode", [18:01:45.006] "SOCK0node"))) { [18:01:45.006] sendCondition <<- function(cond) { [18:01:45.006] data <- list(type = "VALUE", value = cond, [18:01:45.006] success = TRUE) [18:01:45.006] parallel_sendData(master, data) [18:01:45.006] } [18:01:45.006] return(sendCondition) [18:01:45.006] } [18:01:45.006] } [18:01:45.006] frame <- frame + 1L [18:01:45.006] envir <- sys.frame(frame) [18:01:45.006] } [18:01:45.006] } [18:01:45.006] sendCondition <<- function(cond) NULL [18:01:45.006] } [18:01:45.006] }) [18:01:45.006] withCallingHandlers({ [18:01:45.006] getOption("future.globals.onMissing") [18:01:45.006] }, immediateCondition = function(cond) { [18:01:45.006] sendCondition <- ...future.makeSendCondition() [18:01:45.006] sendCondition(cond) [18:01:45.006] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.006] { [18:01:45.006] inherits <- base::inherits [18:01:45.006] invokeRestart <- base::invokeRestart [18:01:45.006] is.null <- base::is.null [18:01:45.006] muffled <- FALSE [18:01:45.006] if (inherits(cond, "message")) { [18:01:45.006] muffled <- grepl(pattern, "muffleMessage") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleMessage") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "warning")) { [18:01:45.006] muffled <- grepl(pattern, "muffleWarning") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleWarning") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "condition")) { [18:01:45.006] if (!is.null(pattern)) { [18:01:45.006] computeRestarts <- base::computeRestarts [18:01:45.006] grepl <- base::grepl [18:01:45.006] restarts <- computeRestarts(cond) [18:01:45.006] for (restart in restarts) { [18:01:45.006] name <- restart$name [18:01:45.006] if (is.null(name)) [18:01:45.006] next [18:01:45.006] if (!grepl(pattern, name)) [18:01:45.006] next [18:01:45.006] invokeRestart(restart) [18:01:45.006] muffled <- TRUE [18:01:45.006] break [18:01:45.006] } [18:01:45.006] } [18:01:45.006] } [18:01:45.006] invisible(muffled) [18:01:45.006] } [18:01:45.006] muffleCondition(cond) [18:01:45.006] }) [18:01:45.006] })) [18:01:45.006] future::FutureResult(value = ...future.value$value, [18:01:45.006] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.006] ...future.rng), globalenv = if (FALSE) [18:01:45.006] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:45.006] ...future.globalenv.names)) [18:01:45.006] else NULL, started = ...future.startTime, version = "1.8") [18:01:45.006] }, condition = base::local({ [18:01:45.006] c <- base::c [18:01:45.006] inherits <- base::inherits [18:01:45.006] invokeRestart <- base::invokeRestart [18:01:45.006] length <- base::length [18:01:45.006] list <- base::list [18:01:45.006] seq.int <- base::seq.int [18:01:45.006] signalCondition <- base::signalCondition [18:01:45.006] sys.calls <- base::sys.calls [18:01:45.006] `[[` <- base::`[[` [18:01:45.006] `+` <- base::`+` [18:01:45.006] `<<-` <- base::`<<-` [18:01:45.006] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:45.006] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:45.006] 3L)] [18:01:45.006] } [18:01:45.006] function(cond) { [18:01:45.006] is_error <- inherits(cond, "error") [18:01:45.006] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:45.006] NULL) [18:01:45.006] if (is_error) { [18:01:45.006] sessionInformation <- function() { [18:01:45.006] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:45.006] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:45.006] search = base::search(), system = base::Sys.info()) [18:01:45.006] } [18:01:45.006] ...future.conditions[[length(...future.conditions) + [18:01:45.006] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:45.006] cond$call), session = sessionInformation(), [18:01:45.006] timestamp = base::Sys.time(), signaled = 0L) [18:01:45.006] signalCondition(cond) [18:01:45.006] } [18:01:45.006] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:45.006] "immediateCondition"))) { [18:01:45.006] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:45.006] ...future.conditions[[length(...future.conditions) + [18:01:45.006] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:45.006] if (TRUE && !signal) { [18:01:45.006] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.006] { [18:01:45.006] inherits <- base::inherits [18:01:45.006] invokeRestart <- base::invokeRestart [18:01:45.006] is.null <- base::is.null [18:01:45.006] muffled <- FALSE [18:01:45.006] if (inherits(cond, "message")) { [18:01:45.006] muffled <- grepl(pattern, "muffleMessage") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleMessage") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "warning")) { [18:01:45.006] muffled <- grepl(pattern, "muffleWarning") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleWarning") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "condition")) { [18:01:45.006] if (!is.null(pattern)) { [18:01:45.006] computeRestarts <- base::computeRestarts [18:01:45.006] grepl <- base::grepl [18:01:45.006] restarts <- computeRestarts(cond) [18:01:45.006] for (restart in restarts) { [18:01:45.006] name <- restart$name [18:01:45.006] if (is.null(name)) [18:01:45.006] next [18:01:45.006] if (!grepl(pattern, name)) [18:01:45.006] next [18:01:45.006] invokeRestart(restart) [18:01:45.006] muffled <- TRUE [18:01:45.006] break [18:01:45.006] } [18:01:45.006] } [18:01:45.006] } [18:01:45.006] invisible(muffled) [18:01:45.006] } [18:01:45.006] muffleCondition(cond, pattern = "^muffle") [18:01:45.006] } [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] if (TRUE) { [18:01:45.006] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.006] { [18:01:45.006] inherits <- base::inherits [18:01:45.006] invokeRestart <- base::invokeRestart [18:01:45.006] is.null <- base::is.null [18:01:45.006] muffled <- FALSE [18:01:45.006] if (inherits(cond, "message")) { [18:01:45.006] muffled <- grepl(pattern, "muffleMessage") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleMessage") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "warning")) { [18:01:45.006] muffled <- grepl(pattern, "muffleWarning") [18:01:45.006] if (muffled) [18:01:45.006] invokeRestart("muffleWarning") [18:01:45.006] } [18:01:45.006] else if (inherits(cond, "condition")) { [18:01:45.006] if (!is.null(pattern)) { [18:01:45.006] computeRestarts <- base::computeRestarts [18:01:45.006] grepl <- base::grepl [18:01:45.006] restarts <- computeRestarts(cond) [18:01:45.006] for (restart in restarts) { [18:01:45.006] name <- restart$name [18:01:45.006] if (is.null(name)) [18:01:45.006] next [18:01:45.006] if (!grepl(pattern, name)) [18:01:45.006] next [18:01:45.006] invokeRestart(restart) [18:01:45.006] muffled <- TRUE [18:01:45.006] break [18:01:45.006] } [18:01:45.006] } [18:01:45.006] } [18:01:45.006] invisible(muffled) [18:01:45.006] } [18:01:45.006] muffleCondition(cond, pattern = "^muffle") [18:01:45.006] } [18:01:45.006] } [18:01:45.006] } [18:01:45.006] })) [18:01:45.006] }, error = function(ex) { [18:01:45.006] base::structure(base::list(value = NULL, visible = NULL, [18:01:45.006] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.006] ...future.rng), started = ...future.startTime, [18:01:45.006] finished = Sys.time(), session_uuid = NA_character_, [18:01:45.006] version = "1.8"), class = "FutureResult") [18:01:45.006] }, finally = { [18:01:45.006] if (!identical(...future.workdir, getwd())) [18:01:45.006] setwd(...future.workdir) [18:01:45.006] { [18:01:45.006] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:45.006] ...future.oldOptions$nwarnings <- NULL [18:01:45.006] } [18:01:45.006] base::options(...future.oldOptions) [18:01:45.006] if (.Platform$OS.type == "windows") { [18:01:45.006] old_names <- names(...future.oldEnvVars) [18:01:45.006] envs <- base::Sys.getenv() [18:01:45.006] names <- names(envs) [18:01:45.006] common <- intersect(names, old_names) [18:01:45.006] added <- setdiff(names, old_names) [18:01:45.006] removed <- setdiff(old_names, names) [18:01:45.006] changed <- common[...future.oldEnvVars[common] != [18:01:45.006] envs[common]] [18:01:45.006] NAMES <- toupper(changed) [18:01:45.006] args <- list() [18:01:45.006] for (kk in seq_along(NAMES)) { [18:01:45.006] name <- changed[[kk]] [18:01:45.006] NAME <- NAMES[[kk]] [18:01:45.006] if (name != NAME && is.element(NAME, old_names)) [18:01:45.006] next [18:01:45.006] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.006] } [18:01:45.006] NAMES <- toupper(added) [18:01:45.006] for (kk in seq_along(NAMES)) { [18:01:45.006] name <- added[[kk]] [18:01:45.006] NAME <- NAMES[[kk]] [18:01:45.006] if (name != NAME && is.element(NAME, old_names)) [18:01:45.006] next [18:01:45.006] args[[name]] <- "" [18:01:45.006] } [18:01:45.006] NAMES <- toupper(removed) [18:01:45.006] for (kk in seq_along(NAMES)) { [18:01:45.006] name <- removed[[kk]] [18:01:45.006] NAME <- NAMES[[kk]] [18:01:45.006] if (name != NAME && is.element(NAME, old_names)) [18:01:45.006] next [18:01:45.006] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.006] } [18:01:45.006] if (length(args) > 0) [18:01:45.006] base::do.call(base::Sys.setenv, args = args) [18:01:45.006] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:45.006] } [18:01:45.006] { [18:01:45.006] if (base::length(...future.futureOptionsAdded) > [18:01:45.006] 0L) { [18:01:45.006] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:45.006] base::names(opts) <- ...future.futureOptionsAdded [18:01:45.006] base::options(opts) [18:01:45.006] } [18:01:45.006] { [18:01:45.006] { [18:01:45.006] base::options(mc.cores = ...future.mc.cores.old) [18:01:45.006] NULL [18:01:45.006] } [18:01:45.006] options(future.plan = NULL) [18:01:45.006] if (is.na(NA_character_)) [18:01:45.006] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.006] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:45.006] future::plan(list(function (..., workers = availableCores(), [18:01:45.006] lazy = FALSE, rscript_libs = .libPaths(), [18:01:45.006] envir = parent.frame()) [18:01:45.006] { [18:01:45.006] if (is.function(workers)) [18:01:45.006] workers <- workers() [18:01:45.006] workers <- structure(as.integer(workers), [18:01:45.006] class = class(workers)) [18:01:45.006] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:45.006] workers >= 1) [18:01:45.006] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:45.006] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:45.006] } [18:01:45.006] future <- MultisessionFuture(..., workers = workers, [18:01:45.006] lazy = lazy, rscript_libs = rscript_libs, [18:01:45.006] envir = envir) [18:01:45.006] if (!future$lazy) [18:01:45.006] future <- run(future) [18:01:45.006] invisible(future) [18:01:45.006] }), .cleanup = FALSE, .init = FALSE) [18:01:45.006] } [18:01:45.006] } [18:01:45.006] } [18:01:45.006] }) [18:01:45.006] if (TRUE) { [18:01:45.006] base::sink(type = "output", split = FALSE) [18:01:45.006] if (TRUE) { [18:01:45.006] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:45.006] } [18:01:45.006] else { [18:01:45.006] ...future.result["stdout"] <- base::list(NULL) [18:01:45.006] } [18:01:45.006] base::close(...future.stdout) [18:01:45.006] ...future.stdout <- NULL [18:01:45.006] } [18:01:45.006] ...future.result$conditions <- ...future.conditions [18:01:45.006] ...future.result$finished <- base::Sys.time() [18:01:45.006] ...future.result [18:01:45.006] } [18:01:45.013] MultisessionFuture started [18:01:45.013] - Launch lazy future ... done [18:01:45.013] run() for 'MultisessionFuture' ... done [18:01:45.013] result() for ClusterFuture ... [18:01:45.013] receiveMessageFromWorker() for ClusterFuture ... [18:01:45.014] - Validating connection of MultisessionFuture [18:01:45.029] - received message: FutureResult [18:01:45.029] - Received FutureResult [18:01:45.029] - Erased future from FutureRegistry [18:01:45.029] result() for ClusterFuture ... [18:01:45.030] - result already collected: FutureResult [18:01:45.030] result() for ClusterFuture ... done [18:01:45.030] receiveMessageFromWorker() for ClusterFuture ... done [18:01:45.030] result() for ClusterFuture ... done [18:01:45.030] result() for ClusterFuture ... [18:01:45.031] - result already collected: FutureResult [18:01:45.031] result() for ClusterFuture ... done [18:01:45.031] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error' [18:01:45.032] Searching for globals... [18:01:45.034] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:45.034] Searching for globals... [18:01:45.035] - globals found: [5] '$', 'subset', 'data', '<', 'x' [18:01:45.035] Searching for globals ... DONE [18:01:45.036] Resolving globals: FALSE [18:01:45.036] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:45.037] The total size of the 1 globals exported for future expression ('subset(data, x < 3)$y') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:45.037] - globals: [1] 'data' [18:01:45.037] [18:01:45.038] getGlobalsAndPackages() ... DONE [18:01:45.038] run() for 'Future' ... [18:01:45.038] - state: 'created' [18:01:45.038] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function' [18:01:45.053] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' [18:01:45.053] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... [18:01:45.054] - Field: 'node' [18:01:45.054] - Field: 'label' [18:01:45.054] - Field: 'local' [18:01:45.054] - Field: 'owner' [18:01:45.054] - Field: 'envir' [18:01:45.055] - Field: 'workers' [18:01:45.055] - Field: 'packages' [18:01:45.055] - Field: 'gc' [18:01:45.055] - Field: 'conditions' [18:01:45.055] - Field: 'persistent' [18:01:45.056] - Field: 'expr' [18:01:45.056] - Field: 'uuid' [18:01:45.056] - Field: 'seed' [18:01:45.056] - Field: 'version' [18:01:45.056] - Field: 'result' [18:01:45.057] - Field: 'asynchronous' [18:01:45.057] - Field: 'calls' [18:01:45.057] - Field: 'globals' [18:01:45.057] - Field: 'stdout' [18:01:45.057] - Field: 'earlySignal' [18:01:45.058] - Field: 'lazy' [18:01:45.058] - Field: 'state' [18:01:45.058] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done [18:01:45.058] - Launch lazy future ... [18:01:45.058] Packages needed by the future expression (n = 0): [18:01:45.059] Packages needed by future strategies (n = 0): [18:01:45.059] { [18:01:45.059] { [18:01:45.059] { [18:01:45.059] ...future.startTime <- base::Sys.time() [18:01:45.059] { [18:01:45.059] { [18:01:45.059] { [18:01:45.059] { [18:01:45.059] base::local({ [18:01:45.059] has_future <- base::requireNamespace("future", [18:01:45.059] quietly = TRUE) [18:01:45.059] if (has_future) { [18:01:45.059] ns <- base::getNamespace("future") [18:01:45.059] version <- ns[[".package"]][["version"]] [18:01:45.059] if (is.null(version)) [18:01:45.059] version <- utils::packageVersion("future") [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] version <- NULL [18:01:45.059] } [18:01:45.059] if (!has_future || version < "1.8.0") { [18:01:45.059] info <- base::c(r_version = base::gsub("R version ", [18:01:45.059] "", base::R.version$version.string), [18:01:45.059] platform = base::sprintf("%s (%s-bit)", [18:01:45.059] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:45.059] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:45.059] "release", "version")], collapse = " "), [18:01:45.059] hostname = base::Sys.info()[["nodename"]]) [18:01:45.059] info <- base::sprintf("%s: %s", base::names(info), [18:01:45.059] info) [18:01:45.059] info <- base::paste(info, collapse = "; ") [18:01:45.059] if (!has_future) { [18:01:45.059] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:45.059] info) [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:45.059] info, version) [18:01:45.059] } [18:01:45.059] base::stop(msg) [18:01:45.059] } [18:01:45.059] }) [18:01:45.059] } [18:01:45.059] ...future.mc.cores.old <- base::getOption("mc.cores") [18:01:45.059] base::options(mc.cores = 1L) [18:01:45.059] } [18:01:45.059] options(future.plan = NULL) [18:01:45.059] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.059] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:45.059] } [18:01:45.059] ...future.workdir <- getwd() [18:01:45.059] } [18:01:45.059] ...future.oldOptions <- base::as.list(base::.Options) [18:01:45.059] ...future.oldEnvVars <- base::Sys.getenv() [18:01:45.059] } [18:01:45.059] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:45.059] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:45.059] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:45.059] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:45.059] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:45.059] future.stdout.windows.reencode = NULL, width = 80L) [18:01:45.059] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:45.059] base::names(...future.oldOptions)) [18:01:45.059] } [18:01:45.059] if (FALSE) { [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] if (TRUE) { [18:01:45.059] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:45.059] open = "w") [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:45.059] windows = "NUL", "/dev/null"), open = "w") [18:01:45.059] } [18:01:45.059] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:45.059] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:45.059] base::sink(type = "output", split = FALSE) [18:01:45.059] base::close(...future.stdout) [18:01:45.059] }, add = TRUE) [18:01:45.059] } [18:01:45.059] ...future.frame <- base::sys.nframe() [18:01:45.059] ...future.conditions <- base::list() [18:01:45.059] ...future.rng <- base::globalenv()$.Random.seed [18:01:45.059] if (FALSE) { [18:01:45.059] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:45.059] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:45.059] } [18:01:45.059] ...future.result <- base::tryCatch({ [18:01:45.059] base::withCallingHandlers({ [18:01:45.059] ...future.value <- base::withVisible(base::local({ [18:01:45.059] ...future.makeSendCondition <- local({ [18:01:45.059] sendCondition <- NULL [18:01:45.059] function(frame = 1L) { [18:01:45.059] if (is.function(sendCondition)) [18:01:45.059] return(sendCondition) [18:01:45.059] ns <- getNamespace("parallel") [18:01:45.059] if (exists("sendData", mode = "function", [18:01:45.059] envir = ns)) { [18:01:45.059] parallel_sendData <- get("sendData", mode = "function", [18:01:45.059] envir = ns) [18:01:45.059] envir <- sys.frame(frame) [18:01:45.059] master <- NULL [18:01:45.059] while (!identical(envir, .GlobalEnv) && [18:01:45.059] !identical(envir, emptyenv())) { [18:01:45.059] if (exists("master", mode = "list", envir = envir, [18:01:45.059] inherits = FALSE)) { [18:01:45.059] master <- get("master", mode = "list", [18:01:45.059] envir = envir, inherits = FALSE) [18:01:45.059] if (inherits(master, c("SOCKnode", [18:01:45.059] "SOCK0node"))) { [18:01:45.059] sendCondition <<- function(cond) { [18:01:45.059] data <- list(type = "VALUE", value = cond, [18:01:45.059] success = TRUE) [18:01:45.059] parallel_sendData(master, data) [18:01:45.059] } [18:01:45.059] return(sendCondition) [18:01:45.059] } [18:01:45.059] } [18:01:45.059] frame <- frame + 1L [18:01:45.059] envir <- sys.frame(frame) [18:01:45.059] } [18:01:45.059] } [18:01:45.059] sendCondition <<- function(cond) NULL [18:01:45.059] } [18:01:45.059] }) [18:01:45.059] withCallingHandlers({ [18:01:45.059] subset(data, x < 3)$y [18:01:45.059] }, immediateCondition = function(cond) { [18:01:45.059] sendCondition <- ...future.makeSendCondition() [18:01:45.059] sendCondition(cond) [18:01:45.059] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.059] { [18:01:45.059] inherits <- base::inherits [18:01:45.059] invokeRestart <- base::invokeRestart [18:01:45.059] is.null <- base::is.null [18:01:45.059] muffled <- FALSE [18:01:45.059] if (inherits(cond, "message")) { [18:01:45.059] muffled <- grepl(pattern, "muffleMessage") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleMessage") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "warning")) { [18:01:45.059] muffled <- grepl(pattern, "muffleWarning") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleWarning") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "condition")) { [18:01:45.059] if (!is.null(pattern)) { [18:01:45.059] computeRestarts <- base::computeRestarts [18:01:45.059] grepl <- base::grepl [18:01:45.059] restarts <- computeRestarts(cond) [18:01:45.059] for (restart in restarts) { [18:01:45.059] name <- restart$name [18:01:45.059] if (is.null(name)) [18:01:45.059] next [18:01:45.059] if (!grepl(pattern, name)) [18:01:45.059] next [18:01:45.059] invokeRestart(restart) [18:01:45.059] muffled <- TRUE [18:01:45.059] break [18:01:45.059] } [18:01:45.059] } [18:01:45.059] } [18:01:45.059] invisible(muffled) [18:01:45.059] } [18:01:45.059] muffleCondition(cond) [18:01:45.059] }) [18:01:45.059] })) [18:01:45.059] future::FutureResult(value = ...future.value$value, [18:01:45.059] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.059] ...future.rng), globalenv = if (FALSE) [18:01:45.059] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:45.059] ...future.globalenv.names)) [18:01:45.059] else NULL, started = ...future.startTime, version = "1.8") [18:01:45.059] }, condition = base::local({ [18:01:45.059] c <- base::c [18:01:45.059] inherits <- base::inherits [18:01:45.059] invokeRestart <- base::invokeRestart [18:01:45.059] length <- base::length [18:01:45.059] list <- base::list [18:01:45.059] seq.int <- base::seq.int [18:01:45.059] signalCondition <- base::signalCondition [18:01:45.059] sys.calls <- base::sys.calls [18:01:45.059] `[[` <- base::`[[` [18:01:45.059] `+` <- base::`+` [18:01:45.059] `<<-` <- base::`<<-` [18:01:45.059] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:45.059] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:45.059] 3L)] [18:01:45.059] } [18:01:45.059] function(cond) { [18:01:45.059] is_error <- inherits(cond, "error") [18:01:45.059] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:45.059] NULL) [18:01:45.059] if (is_error) { [18:01:45.059] sessionInformation <- function() { [18:01:45.059] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:45.059] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:45.059] search = base::search(), system = base::Sys.info()) [18:01:45.059] } [18:01:45.059] ...future.conditions[[length(...future.conditions) + [18:01:45.059] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:45.059] cond$call), session = sessionInformation(), [18:01:45.059] timestamp = base::Sys.time(), signaled = 0L) [18:01:45.059] signalCondition(cond) [18:01:45.059] } [18:01:45.059] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:45.059] "immediateCondition"))) { [18:01:45.059] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:45.059] ...future.conditions[[length(...future.conditions) + [18:01:45.059] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:45.059] if (TRUE && !signal) { [18:01:45.059] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.059] { [18:01:45.059] inherits <- base::inherits [18:01:45.059] invokeRestart <- base::invokeRestart [18:01:45.059] is.null <- base::is.null [18:01:45.059] muffled <- FALSE [18:01:45.059] if (inherits(cond, "message")) { [18:01:45.059] muffled <- grepl(pattern, "muffleMessage") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleMessage") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "warning")) { [18:01:45.059] muffled <- grepl(pattern, "muffleWarning") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleWarning") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "condition")) { [18:01:45.059] if (!is.null(pattern)) { [18:01:45.059] computeRestarts <- base::computeRestarts [18:01:45.059] grepl <- base::grepl [18:01:45.059] restarts <- computeRestarts(cond) [18:01:45.059] for (restart in restarts) { [18:01:45.059] name <- restart$name [18:01:45.059] if (is.null(name)) [18:01:45.059] next [18:01:45.059] if (!grepl(pattern, name)) [18:01:45.059] next [18:01:45.059] invokeRestart(restart) [18:01:45.059] muffled <- TRUE [18:01:45.059] break [18:01:45.059] } [18:01:45.059] } [18:01:45.059] } [18:01:45.059] invisible(muffled) [18:01:45.059] } [18:01:45.059] muffleCondition(cond, pattern = "^muffle") [18:01:45.059] } [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] if (TRUE) { [18:01:45.059] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.059] { [18:01:45.059] inherits <- base::inherits [18:01:45.059] invokeRestart <- base::invokeRestart [18:01:45.059] is.null <- base::is.null [18:01:45.059] muffled <- FALSE [18:01:45.059] if (inherits(cond, "message")) { [18:01:45.059] muffled <- grepl(pattern, "muffleMessage") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleMessage") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "warning")) { [18:01:45.059] muffled <- grepl(pattern, "muffleWarning") [18:01:45.059] if (muffled) [18:01:45.059] invokeRestart("muffleWarning") [18:01:45.059] } [18:01:45.059] else if (inherits(cond, "condition")) { [18:01:45.059] if (!is.null(pattern)) { [18:01:45.059] computeRestarts <- base::computeRestarts [18:01:45.059] grepl <- base::grepl [18:01:45.059] restarts <- computeRestarts(cond) [18:01:45.059] for (restart in restarts) { [18:01:45.059] name <- restart$name [18:01:45.059] if (is.null(name)) [18:01:45.059] next [18:01:45.059] if (!grepl(pattern, name)) [18:01:45.059] next [18:01:45.059] invokeRestart(restart) [18:01:45.059] muffled <- TRUE [18:01:45.059] break [18:01:45.059] } [18:01:45.059] } [18:01:45.059] } [18:01:45.059] invisible(muffled) [18:01:45.059] } [18:01:45.059] muffleCondition(cond, pattern = "^muffle") [18:01:45.059] } [18:01:45.059] } [18:01:45.059] } [18:01:45.059] })) [18:01:45.059] }, error = function(ex) { [18:01:45.059] base::structure(base::list(value = NULL, visible = NULL, [18:01:45.059] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.059] ...future.rng), started = ...future.startTime, [18:01:45.059] finished = Sys.time(), session_uuid = NA_character_, [18:01:45.059] version = "1.8"), class = "FutureResult") [18:01:45.059] }, finally = { [18:01:45.059] if (!identical(...future.workdir, getwd())) [18:01:45.059] setwd(...future.workdir) [18:01:45.059] { [18:01:45.059] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:45.059] ...future.oldOptions$nwarnings <- NULL [18:01:45.059] } [18:01:45.059] base::options(...future.oldOptions) [18:01:45.059] if (.Platform$OS.type == "windows") { [18:01:45.059] old_names <- names(...future.oldEnvVars) [18:01:45.059] envs <- base::Sys.getenv() [18:01:45.059] names <- names(envs) [18:01:45.059] common <- intersect(names, old_names) [18:01:45.059] added <- setdiff(names, old_names) [18:01:45.059] removed <- setdiff(old_names, names) [18:01:45.059] changed <- common[...future.oldEnvVars[common] != [18:01:45.059] envs[common]] [18:01:45.059] NAMES <- toupper(changed) [18:01:45.059] args <- list() [18:01:45.059] for (kk in seq_along(NAMES)) { [18:01:45.059] name <- changed[[kk]] [18:01:45.059] NAME <- NAMES[[kk]] [18:01:45.059] if (name != NAME && is.element(NAME, old_names)) [18:01:45.059] next [18:01:45.059] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.059] } [18:01:45.059] NAMES <- toupper(added) [18:01:45.059] for (kk in seq_along(NAMES)) { [18:01:45.059] name <- added[[kk]] [18:01:45.059] NAME <- NAMES[[kk]] [18:01:45.059] if (name != NAME && is.element(NAME, old_names)) [18:01:45.059] next [18:01:45.059] args[[name]] <- "" [18:01:45.059] } [18:01:45.059] NAMES <- toupper(removed) [18:01:45.059] for (kk in seq_along(NAMES)) { [18:01:45.059] name <- removed[[kk]] [18:01:45.059] NAME <- NAMES[[kk]] [18:01:45.059] if (name != NAME && is.element(NAME, old_names)) [18:01:45.059] next [18:01:45.059] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.059] } [18:01:45.059] if (length(args) > 0) [18:01:45.059] base::do.call(base::Sys.setenv, args = args) [18:01:45.059] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:45.059] } [18:01:45.059] { [18:01:45.059] if (base::length(...future.futureOptionsAdded) > [18:01:45.059] 0L) { [18:01:45.059] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:45.059] base::names(opts) <- ...future.futureOptionsAdded [18:01:45.059] base::options(opts) [18:01:45.059] } [18:01:45.059] { [18:01:45.059] { [18:01:45.059] base::options(mc.cores = ...future.mc.cores.old) [18:01:45.059] NULL [18:01:45.059] } [18:01:45.059] options(future.plan = NULL) [18:01:45.059] if (is.na(NA_character_)) [18:01:45.059] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.059] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:45.059] future::plan(list(function (..., workers = availableCores(), [18:01:45.059] lazy = FALSE, rscript_libs = .libPaths(), [18:01:45.059] envir = parent.frame()) [18:01:45.059] { [18:01:45.059] if (is.function(workers)) [18:01:45.059] workers <- workers() [18:01:45.059] workers <- structure(as.integer(workers), [18:01:45.059] class = class(workers)) [18:01:45.059] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:45.059] workers >= 1) [18:01:45.059] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:45.059] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:45.059] } [18:01:45.059] future <- MultisessionFuture(..., workers = workers, [18:01:45.059] lazy = lazy, rscript_libs = rscript_libs, [18:01:45.059] envir = envir) [18:01:45.059] if (!future$lazy) [18:01:45.059] future <- run(future) [18:01:45.059] invisible(future) [18:01:45.059] }), .cleanup = FALSE, .init = FALSE) [18:01:45.059] } [18:01:45.059] } [18:01:45.059] } [18:01:45.059] }) [18:01:45.059] if (TRUE) { [18:01:45.059] base::sink(type = "output", split = FALSE) [18:01:45.059] if (TRUE) { [18:01:45.059] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:45.059] } [18:01:45.059] else { [18:01:45.059] ...future.result["stdout"] <- base::list(NULL) [18:01:45.059] } [18:01:45.059] base::close(...future.stdout) [18:01:45.059] ...future.stdout <- NULL [18:01:45.059] } [18:01:45.059] ...future.result$conditions <- ...future.conditions [18:01:45.059] ...future.result$finished <- base::Sys.time() [18:01:45.059] ...future.result [18:01:45.059] } [18:01:45.065] Exporting 1 global objects (160 bytes) to cluster node #1 ... [18:01:45.066] Exporting 'data' (160 bytes) to cluster node #1 ... [18:01:45.066] Exporting 'data' (160 bytes) to cluster node #1 ... DONE [18:01:45.066] Exporting 1 global objects (160 bytes) to cluster node #1 ... DONE [18:01:45.067] MultisessionFuture started [18:01:45.067] - Launch lazy future ... done [18:01:45.067] run() for 'MultisessionFuture' ... done [18:01:45.068] result() for ClusterFuture ... [18:01:45.068] receiveMessageFromWorker() for ClusterFuture ... [18:01:45.071] - Validating connection of MultisessionFuture [18:01:45.085] - received message: FutureResult [18:01:45.085] - Received FutureResult [18:01:45.085] - Erased future from FutureRegistry [18:01:45.085] result() for ClusterFuture ... [18:01:45.085] - result already collected: FutureResult [18:01:45.086] result() for ClusterFuture ... done [18:01:45.086] receiveMessageFromWorker() for ClusterFuture ... done [18:01:45.086] result() for ClusterFuture ... done [18:01:45.086] result() for ClusterFuture ... [18:01:45.086] - result already collected: FutureResult [18:01:45.086] result() for ClusterFuture ... done [18:01:45.087] plan(): Setting new future strategy stack: [18:01:45.087] List of future strategies: [18:01:45.087] 1. sequential: [18:01:45.087] - args: function (..., envir = parent.frame()) [18:01:45.087] - tweaked: FALSE [18:01:45.087] - call: plan(list(sequential, strategy)) [18:01:45.087] 2. multisession: [18:01:45.087] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) [18:01:45.087] - tweaked: FALSE [18:01:45.087] - call: plan(list(sequential, strategy)) [18:01:45.088] plan(): nbrOfWorkers() = 1 [18:01:45.088] getGlobalsAndPackages() ... Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:45.089] Searching for globals... [18:01:45.093] - globals found: [8] '{', '<-', '$', 'subset', 'data', '<', 'x', '%<-%' [18:01:45.093] Searching for globals ... DONE [18:01:45.093] Resolving globals: FALSE [18:01:45.094] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:45.094] The total size of the 1 globals exported for future expression ('{; a %<-% subset(data, x < 3)$y; a; }') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:45.094] - globals: [1] 'data' [18:01:45.095] - packages: [1] 'future' [18:01:45.095] getGlobalsAndPackages() ... DONE [18:01:45.095] run() for 'Future' ... [18:01:45.095] - state: 'created' [18:01:45.096] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function' [18:01:45.096] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' [18:01:45.096] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... [18:01:45.096] - Field: 'label' [18:01:45.097] - Field: 'local' [18:01:45.097] - Field: 'owner' [18:01:45.097] - Field: 'envir' [18:01:45.097] - Field: 'packages' [18:01:45.097] - Field: 'gc' [18:01:45.097] - Field: 'conditions' [18:01:45.098] - Field: 'expr' [18:01:45.098] - Field: 'uuid' [18:01:45.098] - Field: 'seed' [18:01:45.098] - Field: 'version' [18:01:45.098] - Field: 'result' [18:01:45.099] - Field: 'asynchronous' [18:01:45.099] - Field: 'calls' [18:01:45.099] - Field: 'globals' [18:01:45.099] - Field: 'stdout' [18:01:45.099] - Field: 'earlySignal' [18:01:45.099] - Field: 'lazy' [18:01:45.100] - Field: 'state' [18:01:45.100] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done [18:01:45.100] - Launch lazy future ... [18:01:45.100] Packages needed by the future expression (n = 1): 'future' [18:01:45.100] Packages needed by future strategies (n = 1): 'future' [18:01:45.101] { [18:01:45.101] { [18:01:45.101] { [18:01:45.101] ...future.startTime <- base::Sys.time() [18:01:45.101] { [18:01:45.101] { [18:01:45.101] { [18:01:45.101] { [18:01:45.101] base::local({ [18:01:45.101] has_future <- base::requireNamespace("future", [18:01:45.101] quietly = TRUE) [18:01:45.101] if (has_future) { [18:01:45.101] ns <- base::getNamespace("future") [18:01:45.101] version <- ns[[".package"]][["version"]] [18:01:45.101] if (is.null(version)) [18:01:45.101] version <- utils::packageVersion("future") [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] version <- NULL [18:01:45.101] } [18:01:45.101] if (!has_future || version < "1.8.0") { [18:01:45.101] info <- base::c(r_version = base::gsub("R version ", [18:01:45.101] "", base::R.version$version.string), [18:01:45.101] platform = base::sprintf("%s (%s-bit)", [18:01:45.101] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:45.101] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:45.101] "release", "version")], collapse = " "), [18:01:45.101] hostname = base::Sys.info()[["nodename"]]) [18:01:45.101] info <- base::sprintf("%s: %s", base::names(info), [18:01:45.101] info) [18:01:45.101] info <- base::paste(info, collapse = "; ") [18:01:45.101] if (!has_future) { [18:01:45.101] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:45.101] info) [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:45.101] info, version) [18:01:45.101] } [18:01:45.101] base::stop(msg) [18:01:45.101] } [18:01:45.101] }) [18:01:45.101] } [18:01:45.101] base::local({ [18:01:45.101] for (pkg in "future") { [18:01:45.101] base::loadNamespace(pkg) [18:01:45.101] base::library(pkg, character.only = TRUE) [18:01:45.101] } [18:01:45.101] }) [18:01:45.101] } [18:01:45.101] options(future.plan = NULL) [18:01:45.101] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.101] future::plan(list(function (..., workers = availableCores(), [18:01:45.101] lazy = FALSE, rscript_libs = .libPaths(), [18:01:45.101] envir = parent.frame()) [18:01:45.101] { [18:01:45.101] if (is.function(workers)) [18:01:45.101] workers <- workers() [18:01:45.101] workers <- structure(as.integer(workers), [18:01:45.101] class = class(workers)) [18:01:45.101] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:45.101] workers >= 1) [18:01:45.101] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:45.101] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:45.101] } [18:01:45.101] future <- MultisessionFuture(..., workers = workers, [18:01:45.101] lazy = lazy, rscript_libs = rscript_libs, [18:01:45.101] envir = envir) [18:01:45.101] if (!future$lazy) [18:01:45.101] future <- run(future) [18:01:45.101] invisible(future) [18:01:45.101] }), .cleanup = FALSE, .init = FALSE) [18:01:45.101] } [18:01:45.101] ...future.workdir <- getwd() [18:01:45.101] } [18:01:45.101] ...future.oldOptions <- base::as.list(base::.Options) [18:01:45.101] ...future.oldEnvVars <- base::Sys.getenv() [18:01:45.101] } [18:01:45.101] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:45.101] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:45.101] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:45.101] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:45.101] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:45.101] future.stdout.windows.reencode = NULL, width = 80L) [18:01:45.101] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:45.101] base::names(...future.oldOptions)) [18:01:45.101] } [18:01:45.101] if (FALSE) { [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] if (TRUE) { [18:01:45.101] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:45.101] open = "w") [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:45.101] windows = "NUL", "/dev/null"), open = "w") [18:01:45.101] } [18:01:45.101] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:45.101] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:45.101] base::sink(type = "output", split = FALSE) [18:01:45.101] base::close(...future.stdout) [18:01:45.101] }, add = TRUE) [18:01:45.101] } [18:01:45.101] ...future.frame <- base::sys.nframe() [18:01:45.101] ...future.conditions <- base::list() [18:01:45.101] ...future.rng <- base::globalenv()$.Random.seed [18:01:45.101] if (FALSE) { [18:01:45.101] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:45.101] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:45.101] } [18:01:45.101] ...future.result <- base::tryCatch({ [18:01:45.101] base::withCallingHandlers({ [18:01:45.101] ...future.value <- base::withVisible(base::local({ [18:01:45.101] a %<-% subset(data, x < 3)$y [18:01:45.101] a [18:01:45.101] })) [18:01:45.101] future::FutureResult(value = ...future.value$value, [18:01:45.101] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.101] ...future.rng), globalenv = if (FALSE) [18:01:45.101] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:45.101] ...future.globalenv.names)) [18:01:45.101] else NULL, started = ...future.startTime, version = "1.8") [18:01:45.101] }, condition = base::local({ [18:01:45.101] c <- base::c [18:01:45.101] inherits <- base::inherits [18:01:45.101] invokeRestart <- base::invokeRestart [18:01:45.101] length <- base::length [18:01:45.101] list <- base::list [18:01:45.101] seq.int <- base::seq.int [18:01:45.101] signalCondition <- base::signalCondition [18:01:45.101] sys.calls <- base::sys.calls [18:01:45.101] `[[` <- base::`[[` [18:01:45.101] `+` <- base::`+` [18:01:45.101] `<<-` <- base::`<<-` [18:01:45.101] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:45.101] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:45.101] 3L)] [18:01:45.101] } [18:01:45.101] function(cond) { [18:01:45.101] is_error <- inherits(cond, "error") [18:01:45.101] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:45.101] NULL) [18:01:45.101] if (is_error) { [18:01:45.101] sessionInformation <- function() { [18:01:45.101] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:45.101] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:45.101] search = base::search(), system = base::Sys.info()) [18:01:45.101] } [18:01:45.101] ...future.conditions[[length(...future.conditions) + [18:01:45.101] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:45.101] cond$call), session = sessionInformation(), [18:01:45.101] timestamp = base::Sys.time(), signaled = 0L) [18:01:45.101] signalCondition(cond) [18:01:45.101] } [18:01:45.101] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:45.101] "immediateCondition"))) { [18:01:45.101] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:45.101] ...future.conditions[[length(...future.conditions) + [18:01:45.101] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:45.101] if (TRUE && !signal) { [18:01:45.101] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.101] { [18:01:45.101] inherits <- base::inherits [18:01:45.101] invokeRestart <- base::invokeRestart [18:01:45.101] is.null <- base::is.null [18:01:45.101] muffled <- FALSE [18:01:45.101] if (inherits(cond, "message")) { [18:01:45.101] muffled <- grepl(pattern, "muffleMessage") [18:01:45.101] if (muffled) [18:01:45.101] invokeRestart("muffleMessage") [18:01:45.101] } [18:01:45.101] else if (inherits(cond, "warning")) { [18:01:45.101] muffled <- grepl(pattern, "muffleWarning") [18:01:45.101] if (muffled) [18:01:45.101] invokeRestart("muffleWarning") [18:01:45.101] } [18:01:45.101] else if (inherits(cond, "condition")) { [18:01:45.101] if (!is.null(pattern)) { [18:01:45.101] computeRestarts <- base::computeRestarts [18:01:45.101] grepl <- base::grepl [18:01:45.101] restarts <- computeRestarts(cond) [18:01:45.101] for (restart in restarts) { [18:01:45.101] name <- restart$name [18:01:45.101] if (is.null(name)) [18:01:45.101] next [18:01:45.101] if (!grepl(pattern, name)) [18:01:45.101] next [18:01:45.101] invokeRestart(restart) [18:01:45.101] muffled <- TRUE [18:01:45.101] break [18:01:45.101] } [18:01:45.101] } [18:01:45.101] } [18:01:45.101] invisible(muffled) [18:01:45.101] } [18:01:45.101] muffleCondition(cond, pattern = "^muffle") [18:01:45.101] } [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] if (TRUE) { [18:01:45.101] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.101] { [18:01:45.101] inherits <- base::inherits [18:01:45.101] invokeRestart <- base::invokeRestart [18:01:45.101] is.null <- base::is.null [18:01:45.101] muffled <- FALSE [18:01:45.101] if (inherits(cond, "message")) { [18:01:45.101] muffled <- grepl(pattern, "muffleMessage") [18:01:45.101] if (muffled) [18:01:45.101] invokeRestart("muffleMessage") [18:01:45.101] } [18:01:45.101] else if (inherits(cond, "warning")) { [18:01:45.101] muffled <- grepl(pattern, "muffleWarning") [18:01:45.101] if (muffled) [18:01:45.101] invokeRestart("muffleWarning") [18:01:45.101] } [18:01:45.101] else if (inherits(cond, "condition")) { [18:01:45.101] if (!is.null(pattern)) { [18:01:45.101] computeRestarts <- base::computeRestarts [18:01:45.101] grepl <- base::grepl [18:01:45.101] restarts <- computeRestarts(cond) [18:01:45.101] for (restart in restarts) { [18:01:45.101] name <- restart$name [18:01:45.101] if (is.null(name)) [18:01:45.101] next [18:01:45.101] if (!grepl(pattern, name)) [18:01:45.101] next [18:01:45.101] invokeRestart(restart) [18:01:45.101] muffled <- TRUE [18:01:45.101] break [18:01:45.101] } [18:01:45.101] } [18:01:45.101] } [18:01:45.101] invisible(muffled) [18:01:45.101] } [18:01:45.101] muffleCondition(cond, pattern = "^muffle") [18:01:45.101] } [18:01:45.101] } [18:01:45.101] } [18:01:45.101] })) [18:01:45.101] }, error = function(ex) { [18:01:45.101] base::structure(base::list(value = NULL, visible = NULL, [18:01:45.101] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.101] ...future.rng), started = ...future.startTime, [18:01:45.101] finished = Sys.time(), session_uuid = NA_character_, [18:01:45.101] version = "1.8"), class = "FutureResult") [18:01:45.101] }, finally = { [18:01:45.101] if (!identical(...future.workdir, getwd())) [18:01:45.101] setwd(...future.workdir) [18:01:45.101] { [18:01:45.101] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:45.101] ...future.oldOptions$nwarnings <- NULL [18:01:45.101] } [18:01:45.101] base::options(...future.oldOptions) [18:01:45.101] if (.Platform$OS.type == "windows") { [18:01:45.101] old_names <- names(...future.oldEnvVars) [18:01:45.101] envs <- base::Sys.getenv() [18:01:45.101] names <- names(envs) [18:01:45.101] common <- intersect(names, old_names) [18:01:45.101] added <- setdiff(names, old_names) [18:01:45.101] removed <- setdiff(old_names, names) [18:01:45.101] changed <- common[...future.oldEnvVars[common] != [18:01:45.101] envs[common]] [18:01:45.101] NAMES <- toupper(changed) [18:01:45.101] args <- list() [18:01:45.101] for (kk in seq_along(NAMES)) { [18:01:45.101] name <- changed[[kk]] [18:01:45.101] NAME <- NAMES[[kk]] [18:01:45.101] if (name != NAME && is.element(NAME, old_names)) [18:01:45.101] next [18:01:45.101] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.101] } [18:01:45.101] NAMES <- toupper(added) [18:01:45.101] for (kk in seq_along(NAMES)) { [18:01:45.101] name <- added[[kk]] [18:01:45.101] NAME <- NAMES[[kk]] [18:01:45.101] if (name != NAME && is.element(NAME, old_names)) [18:01:45.101] next [18:01:45.101] args[[name]] <- "" [18:01:45.101] } [18:01:45.101] NAMES <- toupper(removed) [18:01:45.101] for (kk in seq_along(NAMES)) { [18:01:45.101] name <- removed[[kk]] [18:01:45.101] NAME <- NAMES[[kk]] [18:01:45.101] if (name != NAME && is.element(NAME, old_names)) [18:01:45.101] next [18:01:45.101] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.101] } [18:01:45.101] if (length(args) > 0) [18:01:45.101] base::do.call(base::Sys.setenv, args = args) [18:01:45.101] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:45.101] } [18:01:45.101] { [18:01:45.101] if (base::length(...future.futureOptionsAdded) > [18:01:45.101] 0L) { [18:01:45.101] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:45.101] base::names(opts) <- ...future.futureOptionsAdded [18:01:45.101] base::options(opts) [18:01:45.101] } [18:01:45.101] { [18:01:45.101] { [18:01:45.101] NULL [18:01:45.101] RNGkind("Mersenne-Twister") [18:01:45.101] base::rm(list = ".Random.seed", envir = base::globalenv(), [18:01:45.101] inherits = FALSE) [18:01:45.101] } [18:01:45.101] options(future.plan = NULL) [18:01:45.101] if (is.na(NA_character_)) [18:01:45.101] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.101] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:45.101] future::plan(list(function (..., envir = parent.frame()) [18:01:45.101] { [18:01:45.101] future <- SequentialFuture(..., envir = envir) [18:01:45.101] if (!future$lazy) [18:01:45.101] future <- run(future) [18:01:45.101] invisible(future) [18:01:45.101] }, function (..., workers = availableCores(), [18:01:45.101] lazy = FALSE, rscript_libs = .libPaths(), [18:01:45.101] envir = parent.frame()) [18:01:45.101] { [18:01:45.101] if (is.function(workers)) [18:01:45.101] workers <- workers() [18:01:45.101] workers <- structure(as.integer(workers), [18:01:45.101] class = class(workers)) [18:01:45.101] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:45.101] workers >= 1) [18:01:45.101] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:45.101] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:45.101] } [18:01:45.101] future <- MultisessionFuture(..., workers = workers, [18:01:45.101] lazy = lazy, rscript_libs = rscript_libs, [18:01:45.101] envir = envir) [18:01:45.101] if (!future$lazy) [18:01:45.101] future <- run(future) [18:01:45.101] invisible(future) [18:01:45.101] }), .cleanup = FALSE, .init = FALSE) [18:01:45.101] } [18:01:45.101] } [18:01:45.101] } [18:01:45.101] }) [18:01:45.101] if (TRUE) { [18:01:45.101] base::sink(type = "output", split = FALSE) [18:01:45.101] if (TRUE) { [18:01:45.101] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:45.101] } [18:01:45.101] else { [18:01:45.101] ...future.result["stdout"] <- base::list(NULL) [18:01:45.101] } [18:01:45.101] base::close(...future.stdout) [18:01:45.101] ...future.stdout <- NULL [18:01:45.101] } [18:01:45.101] ...future.result$conditions <- ...future.conditions [18:01:45.101] ...future.result$finished <- base::Sys.time() [18:01:45.101] ...future.result [18:01:45.101] } [18:01:45.106] assign_globals() ... [18:01:45.106] List of 1 [18:01:45.106] $ data:'data.frame': 5 obs. of 2 variables: [18:01:45.106] ..$ x: int [1:5] 1 2 3 4 5 [18:01:45.106] ..$ y: int [1:5] 1 2 3 4 5 [18:01:45.106] - attr(*, "where")=List of 1 [18:01:45.106] ..$ data: [18:01:45.106] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [18:01:45.106] - attr(*, "resolved")= logi FALSE [18:01:45.106] - attr(*, "total_size")= num 160 [18:01:45.106] - attr(*, "already-done")= logi TRUE [18:01:45.110] - copied 'data' to environment [18:01:45.110] assign_globals() ... done [18:01:45.111] plan(): Setting new future strategy stack: [18:01:45.111] List of future strategies: [18:01:45.111] 1. multisession: [18:01:45.111] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) [18:01:45.111] - tweaked: FALSE [18:01:45.111] - call: plan(list(sequential, strategy)) [18:01:45.114] plan(): nbrOfWorkers() = 2 [18:01:45.523] plan(): Setting new future strategy stack: [18:01:45.523] List of future strategies: [18:01:45.523] 1. sequential: [18:01:45.523] - args: function (..., envir = parent.frame()) [18:01:45.523] - tweaked: FALSE [18:01:45.523] - call: plan(list(sequential, strategy)) [18:01:45.523] 2. multisession: [18:01:45.523] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) [18:01:45.523] - tweaked: FALSE [18:01:45.523] - call: plan(list(sequential, strategy)) [18:01:45.524] plan(): nbrOfWorkers() = 1 [18:01:45.524] SequentialFuture started (and completed) [18:01:45.524] signalConditions() ... [18:01:45.524] - include = 'immediateCondition' [18:01:45.525] - exclude = [18:01:45.525] - resignal = FALSE [18:01:45.525] - Number of conditions: 93 [18:01:45.525] signalConditions() ... done [18:01:45.525] - Launch lazy future ... done [18:01:45.526] run() for 'SequentialFuture' ... done [18:01:45.526] signalConditions() ... [18:01:45.526] - include = 'immediateCondition' [18:01:45.526] - exclude = [18:01:45.526] - resignal = FALSE [18:01:45.526] - Number of conditions: 93 [18:01:45.527] signalConditions() ... done [18:01:45.527] Future state: 'finished' [18:01:45.527] signalConditions() ... [18:01:45.527] - include = 'condition' [18:01:45.527] - exclude = 'immediateCondition' [18:01:45.528] - resignal = TRUE [18:01:45.528] - Number of conditions: 93 [18:01:45.528] - Condition #1: 'simpleMessage', 'message', 'condition' [18:01:45.114] getGlobalsAndPackages() ... [18:01:45.528] - Condition #2: 'deprecatedWarning', 'warning', 'condition' Warning: R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'ignore' [18:01:45.528] - Condition #3: 'simpleMessage', 'message', 'condition' [18:01:45.131] Searching for globals... [18:01:45.529] - Condition #4: 'simpleMessage', 'message', 'condition' [18:01:45.132] - globals found: [5] '$', 'subset', 'data', '<', 'x' [18:01:45.529] - Condition #5: 'simpleMessage', 'message', 'condition' [18:01:45.132] Searching for globals ... DONE [18:01:45.529] - Condition #6: 'simpleMessage', 'message', 'condition' [18:01:45.132] Resolving globals: FALSE [18:01:45.529] - Condition #7: 'simpleMessage', 'message', 'condition' [18:01:45.133] The total size of the 1 globals is 160 bytes (160 bytes) [18:01:45.530] - Condition #8: 'simpleMessage', 'message', 'condition' [18:01:45.133] The total size of the 1 globals exported for future expression ('subset(data, x < 3)$y') is 160 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'data' (160 bytes of class 'list') [18:01:45.530] - Condition #9: 'simpleMessage', 'message', 'condition' [18:01:45.134] - globals: [1] 'data' [18:01:45.530] - Condition #10: 'simpleMessage', 'message', 'condition' [18:01:45.134] [18:01:45.530] - Condition #11: 'simpleMessage', 'message', 'condition' [18:01:45.134] getGlobalsAndPackages() ... DONE [18:01:45.530] - Condition #12: 'simpleMessage', 'message', 'condition' [18:01:45.134] run() for 'Future' ... [18:01:45.531] - Condition #13: 'simpleMessage', 'message', 'condition' [18:01:45.135] - state: 'created' [18:01:45.531] - Condition #14: 'simpleMessage', 'message', 'condition' [18:01:45.135] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function' [18:01:45.531] - Condition #15: 'simpleMessage', 'message', 'condition' [18:01:45.137] [local output] makeClusterPSOCK() ... [18:01:45.531] - Condition #16: 'simpleMessage', 'message', 'condition' [18:01:45.138] [local output] Workers: [n = 2] 'localhost', 'localhost' [18:01:45.532] - Condition #17: 'simpleMessage', 'message', 'condition' [18:01:45.141] [local output] Base port: 30427 [18:01:45.532] - Condition #18: 'simpleMessage', 'message', 'condition' [18:01:45.141] [local output] Getting setup options for 2 cluster nodes ... [18:01:45.532] - Condition #19: 'simpleMessage', 'message', 'condition' [18:01:45.141] [local output] - Node 1 of 2 ... [18:01:45.532] - Condition #20: 'simpleMessage', 'message', 'condition' [18:01:45.142] [local output] localMachine=TRUE => revtunnel=FALSE [18:01:45.532] - Condition #21: 'simpleMessage', 'message', 'condition' [18:01:45.143] [local output] Rscript port: 30427 [18:01:45.533] - Condition #22: 'simpleMessage', 'message', 'condition' [18:01:45.144] [local output] - Node 2 of 2 ... [18:01:45.533] - Condition #23: 'simpleMessage', 'message', 'condition' [18:01:45.144] [local output] localMachine=TRUE => revtunnel=FALSE [18:01:45.533] - Condition #24: 'simpleMessage', 'message', 'condition' [18:01:45.145] [local output] Rscript port: 30427 [18:01:45.533] - Condition #25: 'simpleMessage', 'message', 'condition' [18:01:45.146] [local output] Getting setup options for 2 cluster nodes ... done [18:01:45.533] - Condition #26: 'simpleMessage', 'message', 'condition' [18:01:45.146] [local output] - Parallel setup requested for some PSOCK nodes [18:01:45.534] - Condition #27: 'simpleMessage', 'message', 'condition' [18:01:45.147] [local output] Setting up PSOCK nodes in parallel [18:01:45.534] - Condition #28: 'simpleMessage', 'message', 'condition' [18:01:45.147] List of 36 [18:01:45.147] $ worker : chr "localhost" [18:01:45.147] ..- attr(*, "localhost")= logi TRUE [18:01:45.147] $ master : chr "localhost" [18:01:45.147] $ port : int 30427 [18:01:45.147] $ connectTimeout : num 120 [18:01:45.147] $ timeout : num 120 [18:01:45.147] $ rscript : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\"" [18:01:45.147] $ homogeneous : logi TRUE [18:01:45.147] $ rscript_args : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=globals,NSE.R:37268:CRANWIN3:CRA"| __truncated__ [18:01:45.147] $ rscript_envs : NULL [18:01:45.147] $ rscript_libs : chr [1:2] "D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c" "D:/RCompile/recent/R/library" [18:01:45.147] $ rscript_startup : NULL [18:01:45.147] $ rscript_sh : chr "cmd" [18:01:45.147] $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ... [18:01:45.147] $ methods : logi TRUE [18:01:45.147] $ socketOptions : chr "no-delay" [18:01:45.147] $ useXDR : logi FALSE [18:01:45.147] $ outfile : chr "/dev/null" [18:01:45.147] $ renice : int NA [18:01:45.147] $ rshcmd : NULL [18:01:45.147] $ user : chr(0) [18:01:45.147] $ revtunnel : logi FALSE [18:01:45.147] $ rshlogfile : NULL [18:01:45.147] $ rshopts : chr(0) [18:01:45.147] $ rank : int 1 [18:01:45.147] $ manual : logi FALSE [18:01:45.147] $ dryrun : logi FALSE [18:01:45.147] $ quiet : logi FALSE [18:01:45.147] $ setup_strategy : chr "parallel" [18:01:45.147] $ local_cmd : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__ [18:01:45.147] $ pidfile : chr "D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.9194439f41e.pid" [18:01:45.147] $ rshcmd_label : NULL [18:01:45.147] $ rsh_call : NULL [18:01:45.147] $ cmd : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__ [18:01:45.147] $ localMachine : logi TRUE [18:01:45.147] $ make_fcn :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), [18:01:45.147] master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", [18:01:45.147] 2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", [18:01:45.147] 30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, [18:01:45.147] rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", [18:01:45.147] "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", [18:01:45.147] "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", [18:01:45.147] "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", [18:01:45.147] FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", [18:01:45.147] NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", [18:01:45.147] NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, [18:01:45.147] setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", [18:01:45.147] "parallel"), action = c("launch", "options"), verbose = FALSE) [18:01:45.147] $ arguments :List of 28 [18:01:45.147] ..$ worker : chr "localhost" [18:01:45.147] ..$ master : NULL [18:01:45.147] ..$ port : int 30427 [18:01:45.147] ..$ connectTimeout : num 120 [18:01:45.147] ..$ timeout : num 120 [18:01:45.147] ..$ rscript : NULL [18:01:45.147] ..$ homogeneous : NULL [18:01:45.147] ..$ rscript_args : NULL [18:01:45.147] ..$ rscript_envs : NULL [18:01:45.147] ..$ rscript_libs : chr [1:2] "D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c" "D:/RCompile/recent/R/library" [18:01:45.147] ..$ rscript_startup : NULL [18:01:45.147] ..$ rscript_sh : chr [1:3] "auto" "cmd" "sh" [18:01:45.147] ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ... [18:01:45.147] ..$ methods : logi TRUE [18:01:45.147] ..$ socketOptions : chr "no-delay" [18:01:45.147] ..$ useXDR : logi FALSE [18:01:45.147] ..$ outfile : chr "/dev/null" [18:01:45.147] ..$ renice : int NA [18:01:45.147] ..$ rshcmd : NULL [18:01:45.147] ..$ user : NULL [18:01:45.147] ..$ revtunnel : logi NA [18:01:45.147] ..$ rshlogfile : NULL [18:01:45.147] ..$ rshopts : NULL [18:01:45.147] ..$ rank : int 1 [18:01:45.147] ..$ manual : logi FALSE [18:01:45.147] ..$ dryrun : logi FALSE [18:01:45.147] ..$ quiet : logi FALSE [18:01:45.147] ..$ setup_strategy : chr "parallel" [18:01:45.147] - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions" [18:01:45.534] - Condition #29: 'simpleMessage', 'message', 'condition' [18:01:45.169] [local output] System call to launch all workers: [18:01:45.534] - Condition #30: 'simpleMessage', 'message', 'condition' [18:01:45.170] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=globals,NSE.R:37268:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpsPHYsk/worker.rank=1.parallelly.parent=37268.9194439f41e.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/Rtmp67Lu9b/RLIBS_19fe819742e2c\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=30427 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel [18:01:45.535] - Condition #31: 'simpleMessage', 'message', 'condition' [18:01:45.170] [local output] Starting PSOCK main server [18:01:45.535] - Condition #32: 'simpleMessage', 'message', 'condition' [18:01:45.179] [local output] Workers launched [18:01:45.535] - Condition #33: 'simpleMessage', 'message', 'condition' [18:01:45.179] [local output] Waiting for workers to connect back [18:01:45.535] - Condition #34: 'simpleMessage', 'message', 'condition' [18:01:45.179] - [local output] 0 workers out of 2 ready [18:01:45.536] - Condition #35: 'simpleMessage', 'message', 'condition' [18:01:45.343] - [local output] 0 workers out of 2 ready [18:01:45.536] - Condition #36: 'simpleMessage', 'message', 'condition' [18:01:45.344] - [local output] 1 workers out of 2 ready [18:01:45.536] - Condition #37: 'simpleMessage', 'message', 'condition' [18:01:45.355] - [local output] 1 workers out of 2 ready [18:01:45.536] - Condition #38: 'simpleMessage', 'message', 'condition' [18:01:45.355] - [local output] 2 workers out of 2 ready [18:01:45.536] - Condition #39: 'simpleMessage', 'message', 'condition' [18:01:45.356] [local output] Launching of workers completed [18:01:45.537] - Condition #40: 'simpleMessage', 'message', 'condition' [18:01:45.356] [local output] Collecting session information from workers [18:01:45.537] - Condition #41: 'simpleMessage', 'message', 'condition' [18:01:45.357] [local output] - Worker #1 of 2 [18:01:45.537] - Condition #42: 'simpleMessage', 'message', 'condition' [18:01:45.357] [local output] - Worker #2 of 2 [18:01:45.537] - Condition #43: 'simpleMessage', 'message', 'condition' [18:01:45.358] [local output] makeClusterPSOCK() ... done [18:01:45.537] - Condition #44: 'simpleMessage', 'message', 'condition' [18:01:45.370] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' [18:01:45.538] - Condition #45: 'simpleMessage', 'message', 'condition' [18:01:45.370] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... [18:01:45.538] - Condition #46: 'simpleMessage', 'message', 'condition' [18:01:45.370] - Field: 'node' [18:01:45.538] - Condition #47: 'simpleMessage', 'message', 'condition' [18:01:45.370] - Field: 'label' [18:01:45.538] - Condition #48: 'simpleMessage', 'message', 'condition' [18:01:45.371] - Field: 'local' [18:01:45.539] - Condition #49: 'simpleMessage', 'message', 'condition' [18:01:45.373] - Field: 'owner' [18:01:45.539] - Condition #50: 'simpleMessage', 'message', 'condition' [18:01:45.373] - Field: 'envir' [18:01:45.539] - Condition #51: 'simpleMessage', 'message', 'condition' [18:01:45.374] - Field: 'workers' [18:01:45.539] - Condition #52: 'simpleMessage', 'message', 'condition' [18:01:45.374] - Field: 'packages' [18:01:45.539] - Condition #53: 'simpleMessage', 'message', 'condition' [18:01:45.374] - Field: 'gc' [18:01:45.540] - Condition #54: 'simpleMessage', 'message', 'condition' [18:01:45.374] - Field: 'conditions' [18:01:45.540] - Condition #55: 'simpleMessage', 'message', 'condition' [18:01:45.374] - Field: 'persistent' [18:01:45.540] - Condition #56: 'simpleMessage', 'message', 'condition' [18:01:45.375] - Field: 'expr' [18:01:45.540] - Condition #57: 'simpleMessage', 'message', 'condition' [18:01:45.375] - Field: 'uuid' [18:01:45.541] - Condition #58: 'simpleMessage', 'message', 'condition' [18:01:45.375] - Field: 'seed' [18:01:45.541] - Condition #59: 'simpleMessage', 'message', 'condition' [18:01:45.375] - Field: 'version' [18:01:45.541] - Condition #60: 'simpleMessage', 'message', 'condition' [18:01:45.375] - Field: 'result' [18:01:45.541] - Condition #61: 'simpleMessage', 'message', 'condition' [18:01:45.376] - Field: 'asynchronous' [18:01:45.541] - Condition #62: 'simpleMessage', 'message', 'condition' [18:01:45.376] - Field: 'calls' [18:01:45.542] - Condition #63: 'simpleMessage', 'message', 'condition' [18:01:45.376] - Field: 'globals' [18:01:45.542] - Condition #64: 'simpleMessage', 'message', 'condition' [18:01:45.376] - Field: 'stdout' [18:01:45.542] - Condition #65: 'simpleMessage', 'message', 'condition' [18:01:45.376] - Field: 'earlySignal' [18:01:45.542] - Condition #66: 'simpleMessage', 'message', 'condition' [18:01:45.377] - Field: 'lazy' [18:01:45.543] - Condition #67: 'simpleMessage', 'message', 'condition' [18:01:45.377] - Field: 'state' [18:01:45.543] - Condition #68: 'simpleMessage', 'message', 'condition' [18:01:45.377] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done [18:01:45.543] - Condition #69: 'simpleMessage', 'message', 'condition' [18:01:45.377] - Launch lazy future ... [18:01:45.543] - Condition #70: 'simpleMessage', 'message', 'condition' [18:01:45.378] Packages needed by the future expression (n = 0): [18:01:45.543] - Condition #71: 'simpleMessage', 'message', 'condition' [18:01:45.378] Packages needed by future strategies (n = 0): [18:01:45.544] - Condition #72: 'simpleMessage', 'message', 'condition' [18:01:45.378] { [18:01:45.378] { [18:01:45.378] { [18:01:45.378] ...future.startTime <- base::Sys.time() [18:01:45.378] { [18:01:45.378] { [18:01:45.378] { [18:01:45.378] { [18:01:45.378] base::local({ [18:01:45.378] has_future <- base::requireNamespace("future", [18:01:45.378] quietly = TRUE) [18:01:45.378] if (has_future) { [18:01:45.378] ns <- base::getNamespace("future") [18:01:45.378] version <- ns[[".package"]][["version"]] [18:01:45.378] if (is.null(version)) [18:01:45.378] version <- utils::packageVersion("future") [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] version <- NULL [18:01:45.378] } [18:01:45.378] if (!has_future || version < "1.8.0") { [18:01:45.378] info <- base::c(r_version = base::gsub("R version ", [18:01:45.378] "", base::R.version$version.string), [18:01:45.378] platform = base::sprintf("%s (%s-bit)", [18:01:45.378] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [18:01:45.378] os = base::paste(base::Sys.info()[base::c("sysname", [18:01:45.378] "release", "version")], collapse = " "), [18:01:45.378] hostname = base::Sys.info()[["nodename"]]) [18:01:45.378] info <- base::sprintf("%s: %s", base::names(info), [18:01:45.378] info) [18:01:45.378] info <- base::paste(info, collapse = "; ") [18:01:45.378] if (!has_future) { [18:01:45.378] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [18:01:45.378] info) [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [18:01:45.378] info, version) [18:01:45.378] } [18:01:45.378] base::stop(msg) [18:01:45.378] } [18:01:45.378] }) [18:01:45.378] } [18:01:45.378] ...future.mc.cores.old <- base::getOption("mc.cores") [18:01:45.378] base::options(mc.cores = 1L) [18:01:45.378] } [18:01:45.378] options(future.plan = NULL) [18:01:45.378] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.378] future::plan("default", .cleanup = FALSE, .init = FALSE) [18:01:45.378] } [18:01:45.378] ...future.workdir <- getwd() [18:01:45.378] } [18:01:45.378] ...future.oldOptions <- base::as.list(base::.Options) [18:01:45.378] ...future.oldEnvVars <- base::Sys.getenv() [18:01:45.378] } [18:01:45.378] base::options(future.startup.script = FALSE, future.globals.onMissing = "ignore", [18:01:45.378] future.globals.maxSize = NULL, future.globals.method = NULL, [18:01:45.378] future.globals.onMissing = "ignore", future.globals.onReference = NULL, [18:01:45.378] future.globals.resolve = NULL, future.resolve.recursive = NULL, [18:01:45.378] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [18:01:45.378] future.stdout.windows.reencode = NULL, width = 80L) [18:01:45.378] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [18:01:45.378] base::names(...future.oldOptions)) [18:01:45.378] } [18:01:45.378] if (FALSE) { [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] if (TRUE) { [18:01:45.378] ...future.stdout <- base::rawConnection(base::raw(0L), [18:01:45.378] open = "w") [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [18:01:45.378] windows = "NUL", "/dev/null"), open = "w") [18:01:45.378] } [18:01:45.378] base::sink(...future.stdout, type = "output", split = FALSE) [18:01:45.378] base::on.exit(if (!base::is.null(...future.stdout)) { [18:01:45.378] base::sink(type = "output", split = FALSE) [18:01:45.378] base::close(...future.stdout) [18:01:45.378] }, add = TRUE) [18:01:45.378] } [18:01:45.378] ...future.frame <- base::sys.nframe() [18:01:45.378] ...future.conditions <- base::list() [18:01:45.378] ...future.rng <- base::globalenv()$.Random.seed [18:01:45.378] if (FALSE) { [18:01:45.378] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [18:01:45.378] "...future.value", "...future.globalenv.names", ".Random.seed") [18:01:45.378] } [18:01:45.378] ...future.result <- base::tryCatch({ [18:01:45.378] base::withCallingHandlers({ [18:01:45.378] ...future.value <- base::withVisible(base::local({ [18:01:45.378] ...future.makeSendCondition <- local({ [18:01:45.378] sendCondition <- NULL [18:01:45.378] function(frame = 1L) { [18:01:45.378] if (is.function(sendCondition)) [18:01:45.378] return(sendCondition) [18:01:45.378] ns <- getNamespace("parallel") [18:01:45.378] if (exists("sendData", mode = "function", [18:01:45.378] envir = ns)) { [18:01:45.378] parallel_sendData <- get("sendData", mode = "function", [18:01:45.378] envir = ns) [18:01:45.378] envir <- sys.frame(frame) [18:01:45.378] master <- NULL [18:01:45.378] while (!identical(envir, .GlobalEnv) && [18:01:45.378] !identical(envir, emptyenv())) { [18:01:45.378] if (exists("master", mode = "list", envir = envir, [18:01:45.378] inherits = FALSE)) { [18:01:45.378] master <- get("master", mode = "list", [18:01:45.378] envir = envir, inherits = FALSE) [18:01:45.378] if (inherits(master, c("SOCKnode", [18:01:45.378] "SOCK0node"))) { [18:01:45.378] sendCondition <<- function(cond) { [18:01:45.378] data <- list(type = "VALUE", value = cond, [18:01:45.378] success = TRUE) [18:01:45.378] parallel_sendData(master, data) [18:01:45.378] } [18:01:45.378] return(sendCondition) [18:01:45.378] } [18:01:45.378] } [18:01:45.378] frame <- frame + 1L [18:01:45.378] envir <- sys.frame(frame) [18:01:45.378] } [18:01:45.378] } [18:01:45.378] sendCondition <<- function(cond) NULL [18:01:45.378] } [18:01:45.378] }) [18:01:45.378] withCallingHandlers({ [18:01:45.378] subset(data, x < 3)$y [18:01:45.378] }, immediateCondition = function(cond) { [18:01:45.378] sendCondition <- ...future.makeSendCondition() [18:01:45.378] sendCondition(cond) [18:01:45.378] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.378] { [18:01:45.378] inherits <- base::inherits [18:01:45.378] invokeRestart <- base::invokeRestart [18:01:45.378] is.null <- base::is.null [18:01:45.378] muffled <- FALSE [18:01:45.378] if (inherits(cond, "message")) { [18:01:45.378] muffled <- grepl(pattern, "muffleMessage") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleMessage") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "warning")) { [18:01:45.378] muffled <- grepl(pattern, "muffleWarning") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleWarning") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "condition")) { [18:01:45.378] if (!is.null(pattern)) { [18:01:45.378] computeRestarts <- base::computeRestarts [18:01:45.378] grepl <- base::grepl [18:01:45.378] restarts <- computeRestarts(cond) [18:01:45.378] for (restart in restarts) { [18:01:45.378] name <- restart$name [18:01:45.378] if (is.null(name)) [18:01:45.378] next [18:01:45.378] if (!grepl(pattern, name)) [18:01:45.378] next [18:01:45.378] invokeRestart(restart) [18:01:45.378] muffled <- TRUE [18:01:45.378] break [18:01:45.378] } [18:01:45.378] } [18:01:45.378] } [18:01:45.378] invisible(muffled) [18:01:45.378] } [18:01:45.378] muffleCondition(cond) [18:01:45.378] }) [18:01:45.378] })) [18:01:45.378] future::FutureResult(value = ...future.value$value, [18:01:45.378] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.378] ...future.rng), globalenv = if (FALSE) [18:01:45.378] list(added = base::setdiff(base::names(base::.GlobalEnv), [18:01:45.378] ...future.globalenv.names)) [18:01:45.378] else NULL, started = ...future.startTime, version = "1.8") [18:01:45.378] }, condition = base::local({ [18:01:45.378] c <- base::c [18:01:45.378] inherits <- base::inherits [18:01:45.378] invokeRestart <- base::invokeRestart [18:01:45.378] length <- base::length [18:01:45.378] list <- base::list [18:01:45.378] seq.int <- base::seq.int [18:01:45.378] signalCondition <- base::signalCondition [18:01:45.378] sys.calls <- base::sys.calls [18:01:45.378] `[[` <- base::`[[` [18:01:45.378] `+` <- base::`+` [18:01:45.378] `<<-` <- base::`<<-` [18:01:45.378] sysCalls <- function(calls = sys.calls(), from = 1L) { [18:01:45.378] calls[seq.int(from = from + 12L, to = length(calls) - [18:01:45.378] 3L)] [18:01:45.378] } [18:01:45.378] function(cond) { [18:01:45.378] is_error <- inherits(cond, "error") [18:01:45.378] ignore <- !is_error && !is.null(NULL) && inherits(cond, [18:01:45.378] NULL) [18:01:45.378] if (is_error) { [18:01:45.378] sessionInformation <- function() { [18:01:45.378] list(r = base::R.Version(), locale = base::Sys.getlocale(), [18:01:45.378] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [18:01:45.378] search = base::search(), system = base::Sys.info()) [18:01:45.378] } [18:01:45.378] ...future.conditions[[length(...future.conditions) + [18:01:45.378] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [18:01:45.378] cond$call), session = sessionInformation(), [18:01:45.378] timestamp = base::Sys.time(), signaled = 0L) [18:01:45.378] signalCondition(cond) [18:01:45.378] } [18:01:45.378] else if (!ignore && TRUE && inherits(cond, c("condition", [18:01:45.378] "immediateCondition"))) { [18:01:45.378] signal <- TRUE && inherits(cond, "immediateCondition") [18:01:45.378] ...future.conditions[[length(...future.conditions) + [18:01:45.378] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [18:01:45.378] if (TRUE && !signal) { [18:01:45.378] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.378] { [18:01:45.378] inherits <- base::inherits [18:01:45.378] invokeRestart <- base::invokeRestart [18:01:45.378] is.null <- base::is.null [18:01:45.378] muffled <- FALSE [18:01:45.378] if (inherits(cond, "message")) { [18:01:45.378] muffled <- grepl(pattern, "muffleMessage") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleMessage") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "warning")) { [18:01:45.378] muffled <- grepl(pattern, "muffleWarning") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleWarning") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "condition")) { [18:01:45.378] if (!is.null(pattern)) { [18:01:45.378] computeRestarts <- base::computeRestarts [18:01:45.378] grepl <- base::grepl [18:01:45.378] restarts <- computeRestarts(cond) [18:01:45.378] for (restart in restarts) { [18:01:45.378] name <- restart$name [18:01:45.378] if (is.null(name)) [18:01:45.378] next [18:01:45.378] if (!grepl(pattern, name)) [18:01:45.378] next [18:01:45.378] invokeRestart(restart) [18:01:45.378] muffled <- TRUE [18:01:45.378] break [18:01:45.378] } [18:01:45.378] } [18:01:45.378] } [18:01:45.378] invisible(muffled) [18:01:45.378] } [18:01:45.378] muffleCondition(cond, pattern = "^muffle") [18:01:45.378] } [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] if (TRUE) { [18:01:45.378] muffleCondition <- function (cond, pattern = "^muffle") [18:01:45.378] { [18:01:45.378] inherits <- base::inherits [18:01:45.378] invokeRestart <- base::invokeRestart [18:01:45.378] is.null <- base::is.null [18:01:45.378] muffled <- FALSE [18:01:45.378] if (inherits(cond, "message")) { [18:01:45.378] muffled <- grepl(pattern, "muffleMessage") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleMessage") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "warning")) { [18:01:45.378] muffled <- grepl(pattern, "muffleWarning") [18:01:45.378] if (muffled) [18:01:45.378] invokeRestart("muffleWarning") [18:01:45.378] } [18:01:45.378] else if (inherits(cond, "condition")) { [18:01:45.378] if (!is.null(pattern)) { [18:01:45.378] computeRestarts <- base::computeRestarts [18:01:45.378] grepl <- base::grepl [18:01:45.378] restarts <- computeRestarts(cond) [18:01:45.378] for (restart in restarts) { [18:01:45.378] name <- restart$name [18:01:45.378] if (is.null(name)) [18:01:45.378] next [18:01:45.378] if (!grepl(pattern, name)) [18:01:45.378] next [18:01:45.378] invokeRestart(restart) [18:01:45.378] muffled <- TRUE [18:01:45.378] break [18:01:45.378] } [18:01:45.378] } [18:01:45.378] } [18:01:45.378] invisible(muffled) [18:01:45.378] } [18:01:45.378] muffleCondition(cond, pattern = "^muffle") [18:01:45.378] } [18:01:45.378] } [18:01:45.378] } [18:01:45.378] })) [18:01:45.378] }, error = function(ex) { [18:01:45.378] base::structure(base::list(value = NULL, visible = NULL, [18:01:45.378] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [18:01:45.378] ...future.rng), started = ...future.startTime, [18:01:45.378] finished = Sys.time(), session_uuid = NA_character_, [18:01:45.378] version = "1.8"), class = "FutureResult") [18:01:45.378] }, finally = { [18:01:45.378] if (!identical(...future.workdir, getwd())) [18:01:45.378] setwd(...future.workdir) [18:01:45.378] { [18:01:45.378] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [18:01:45.378] ...future.oldOptions$nwarnings <- NULL [18:01:45.378] } [18:01:45.378] base::options(...future.oldOptions) [18:01:45.378] if (.Platform$OS.type == "windows") { [18:01:45.378] old_names <- names(...future.oldEnvVars) [18:01:45.378] envs <- base::Sys.getenv() [18:01:45.378] names <- names(envs) [18:01:45.378] common <- intersect(names, old_names) [18:01:45.378] added <- setdiff(names, old_names) [18:01:45.378] removed <- setdiff(old_names, names) [18:01:45.378] changed <- common[...future.oldEnvVars[common] != [18:01:45.378] envs[common]] [18:01:45.378] NAMES <- toupper(changed) [18:01:45.378] args <- list() [18:01:45.378] for (kk in seq_along(NAMES)) { [18:01:45.378] name <- changed[[kk]] [18:01:45.378] NAME <- NAMES[[kk]] [18:01:45.378] if (name != NAME && is.element(NAME, old_names)) [18:01:45.378] next [18:01:45.378] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.378] } [18:01:45.378] NAMES <- toupper(added) [18:01:45.378] for (kk in seq_along(NAMES)) { [18:01:45.378] name <- added[[kk]] [18:01:45.378] NAME <- NAMES[[kk]] [18:01:45.378] if (name != NAME && is.element(NAME, old_names)) [18:01:45.378] next [18:01:45.378] args[[name]] <- "" [18:01:45.378] } [18:01:45.378] NAMES <- toupper(removed) [18:01:45.378] for (kk in seq_along(NAMES)) { [18:01:45.378] name <- removed[[kk]] [18:01:45.378] NAME <- NAMES[[kk]] [18:01:45.378] if (name != NAME && is.element(NAME, old_names)) [18:01:45.378] next [18:01:45.378] args[[name]] <- ...future.oldEnvVars[[name]] [18:01:45.378] } [18:01:45.378] if (length(args) > 0) [18:01:45.378] base::do.call(base::Sys.setenv, args = args) [18:01:45.378] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [18:01:45.378] } [18:01:45.378] { [18:01:45.378] if (base::length(...future.futureOptionsAdded) > [18:01:45.378] 0L) { [18:01:45.378] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [18:01:45.378] base::names(opts) <- ...future.futureOptionsAdded [18:01:45.378] base::options(opts) [18:01:45.378] } [18:01:45.378] { [18:01:45.378] { [18:01:45.378] base::options(mc.cores = ...future.mc.cores.old) [18:01:45.378] NULL [18:01:45.378] } [18:01:45.378] options(future.plan = NULL) [18:01:45.378] if (is.na(NA_character_)) [18:01:45.378] Sys.unsetenv("R_FUTURE_PLAN") [18:01:45.378] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [18:01:45.378] future::plan(list(function (..., workers = availableCores(), [18:01:45.378] lazy = FALSE, rscript_libs = .libPaths(), [18:01:45.378] envir = parent.frame()) [18:01:45.378] { [18:01:45.378] if (is.function(workers)) [18:01:45.378] workers <- workers() [18:01:45.378] workers <- structure(as.integer(workers), [18:01:45.378] class = class(workers)) [18:01:45.378] stop_if_not(length(workers) == 1, is.finite(workers), [18:01:45.378] workers >= 1) [18:01:45.378] if (workers == 1L && !inherits(workers, "AsIs")) { [18:01:45.378] return(sequential(..., lazy = TRUE, envir = envir)) [18:01:45.378] } [18:01:45.378] future <- MultisessionFuture(..., workers = workers, [18:01:45.378] lazy = lazy, rscript_libs = rscript_libs, [18:01:45.378] envir = envir) [18:01:45.378] if (!future$lazy) [18:01:45.378] future <- run(future) [18:01:45.378] invisible(future) [18:01:45.378] }), .cleanup = FALSE, .init = FALSE) [18:01:45.378] } [18:01:45.378] } [18:01:45.378] } [18:01:45.378] }) [18:01:45.378] if (TRUE) { [18:01:45.378] base::sink(type = "output", split = FALSE) [18:01:45.378] if (TRUE) { [18:01:45.378] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [18:01:45.378] } [18:01:45.378] else { [18:01:45.378] ...future.result["stdout"] <- base::list(NULL) [18:01:45.378] } [18:01:45.378] base::close(...future.stdout) [18:01:45.378] ...future.stdout <- NULL [18:01:45.378] } [18:01:45.378] ...future.result$conditions <- ...future.conditions [18:01:45.378] ...future.result$finished <- base::Sys.time() [18:01:45.378] ...future.result [18:01:45.378] } [18:01:45.544] - Condition #73: 'simpleMessage', 'message', 'condition' [18:01:45.460] Exporting 1 global objects (160 bytes) to cluster node #1 ... [18:01:45.544] - Condition #74: 'simpleMessage', 'message', 'condition' [18:01:45.461] Exporting 'data' (160 bytes) to cluster node #1 ... [18:01:45.544] - Condition #75: 'simpleMessage', 'message', 'condition' [18:01:45.461] Exporting 'data' (160 bytes) to cluster node #1 ... DONE [18:01:45.545] - Condition #76: 'simpleMessage', 'message', 'condition' [18:01:45.461] Exporting 1 global objects (160 bytes) to cluster node #1 ... DONE [18:01:45.545] - Condition #77: 'simpleMessage', 'message', 'condition' [18:01:45.462] MultisessionFuture started [18:01:45.545] - Condition #78: 'simpleMessage', 'message', 'condition' [18:01:45.462] - Launch lazy future ... done [18:01:45.545] - Condition #79: 'simpleMessage', 'message', 'condition' [18:01:45.462] run() for 'MultisessionFuture' ... done [18:01:45.546] - Condition #80: 'simpleMessage', 'message', 'condition' [18:01:45.463] result() for ClusterFuture ... [18:01:45.546] - Condition #81: 'simpleMessage', 'message', 'condition' [18:01:45.463] receiveMessageFromWorker() for ClusterFuture ... [18:01:45.546] - Condition #82: 'simpleMessage', 'message', 'condition' [18:01:45.463] - Validating connection of MultisessionFuture [18:01:45.546] - Condition #83: 'simpleMessage', 'message', 'condition' [18:01:45.520] - received message: FutureResult [18:01:45.546] - Condition #84: 'simpleMessage', 'message', 'condition' [18:01:45.520] - Received FutureResult [18:01:45.547] - Condition #85: 'simpleMessage', 'message', 'condition' [18:01:45.521] - Erased future from FutureRegistry [18:01:45.547] - Condition #86: 'simpleMessage', 'message', 'condition' [18:01:45.521] result() for ClusterFuture ... [18:01:45.547] - Condition #87: 'simpleMessage', 'message', 'condition' [18:01:45.521] - result already collected: FutureResult [18:01:45.547] - Condition #88: 'simpleMessage', 'message', 'condition' [18:01:45.521] result() for ClusterFuture ... done [18:01:45.548] - Condition #89: 'simpleMessage', 'message', 'condition' [18:01:45.521] receiveMessageFromWorker() for ClusterFuture ... done [18:01:45.548] - Condition #90: 'simpleMessage', 'message', 'condition' [18:01:45.521] result() for ClusterFuture ... done [18:01:45.548] - Condition #91: 'simpleMessage', 'message', 'condition' [18:01:45.522] result() for ClusterFuture ... [18:01:45.548] - Condition #92: 'simpleMessage', 'message', 'condition' [18:01:45.522] - result already collected: FutureResult [18:01:45.548] - Condition #93: 'simpleMessage', 'message', 'condition' [18:01:45.522] result() for ClusterFuture ... done [18:01:45.549] signalConditions() ... done - Strategy: multisession ... DONE > > > message("*** Globals w/ non-standard evaluation (NSE) ... DONE") *** Globals w/ non-standard evaluation (NSE) ... DONE > > source("incl/end.R") [18:01:45.550] plan(): Setting new future strategy stack: [18:01:45.550] List of future strategies: [18:01:45.550] 1. FutureStrategy: [18:01:45.550] - args: function (..., envir = parent.frame()) [18:01:45.550] - tweaked: FALSE [18:01:45.550] - call: future::plan(oplan) [18:01:45.551] plan(): nbrOfWorkers() = 1 Failed to undo environment variables: - Expected environment variables: [n=201] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RETICULATE_AUTOCONFIGURE', 'RTOOLS43_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CRAN_WEB', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS43_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_AUTOCONF_', '_R_CHECK_BOGUS_RETURN_', '_R_CHECK_BROWSER_NONINTERACTIVE_', '_R_CHECK_BUILD_VIGNETTES_SEPARATELY_', '_R_CHECK_CODETOOLS_PROFILE_', '_R_CHECK_CODE_ASSIGN_TO_GLOBALENV_', '_R_CHECK_CODE_ATTACH_', '_R_CHECK_CODE_CLASS_IS_STRING_', '_R_CHECK_CODE_DATA_INTO_GLOBALENV_', '_R_CHECK_CODE_USAGE_VIA_NAMESPACES_', '_R_CHECK_CODE_USAGE_WITHOUT_LOADING_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_CODOC_VARIABLES_IN_USAGES_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_COMPILATION_FLAGS_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_CRAN_INCOMING_', '_R_CHECK_CRAN_INCOMING_CHECK_FILE_URIS_', '_R_CHECK_CRAN_INCOMING_CHECK_URLS_IN_PARALLEL_', '_R_CHECK_CRAN_INCOMING_NOTE_GNU_MAKE_', '_R_CHECK_CRAN_INCOMING_REMOTE_', '_R_CHECK_CRAN_INCOMING_USE_ASPELL_', '_R_CHECK_DATALIST_', '_R_CHECK_DEPRECATED_DEFUNCT_', '_R_CHECK_DOC_SIZES2_', '_R_CHECK_DOT_FIRSTLIB_', '_R_CHECK_DOT_INTERNAL_', '_R_CHECK_EXAMPLE_TIMING_THRESHOLD_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FF_CALLS_', '_R_CHECK_FF_DUP_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_LEEWAY_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LENGTH_1_CONDITION_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_NATIVE_ROUTINE_REGISTRATION_', '_R_CHECK_NEWS_IN_PLAIN_TEXT_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_ORPHANED_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PKG_SIZES_', '_R_CHECK_PKG_SIZES_THRESHOLD_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_EXAMPLES_T_AND_F_', '_R_CHECK_RD_LINE_WIDTHS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_REPLACING_IMPORTS_', '_R_CHECK_R_DEPENDS_', '_R_CHECK_S3_METHODS_SHOW_POSSIBLE_ISSUES_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SERIALIZATION_', '_R_CHECK_SHLIB_OPENMP_FLAGS_', '_R_CHECK_SRC_MINUS_W_IMPLICIT_', '_R_CHECK_SUBDIRS_NOCASE_', '_R_CHECK_SUBDIRS_STRICT_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_SYSTEM_CLOCK_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TEST_TIMING_', '_R_CHECK_TIMINGS_', '_R_CHECK_TOPLEVEL_FILES_', '_R_CHECK_UNDOC_USE_ALL_NAMES_', '_R_CHECK_UNSAFE_CALLS_', '_R_CHECK_URLS_SHOW_301_STATUS_', '_R_CHECK_VC_DIRS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TIMING_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_CLASS_MATRIX_ARRAY_', '_R_INSTALL_TIME_PATCHES_', '_R_S3_METHOD_LOOKUP_BASEENV_AFTER_GLOBALENV_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', 'maj.version', 'nextArg--timingsnextArg--install' - Environment variables still there: [n=0] - Environment variables missing: [n=1] 'MAKEFLAGS' Differences environment variable by environment variable: List of 3 $ name : chr "MAKEFLAGS" $ expected: 'Dlist' chr "" $ actual : 'Dlist' chr NA > > proc.time() user system elapsed 0.78 0.10 1.98