CRAN Package Check Results for Maintainer Henrik Bengtsson <henrikb at braju.com>

CRAN Package Check Results for Maintainer ‘Henrik Bengtsson <henrikb at braju.com>’

Last updated on 2024-05-03 22:53:43 CEST.

Package	ERROR	NOTE	OK
ACNE			12
aroma.affymetrix		8	4
aroma.apd		2	9
aroma.cn		2	10
aroma.core		12
calmate	1		11
dChipIO			11
doFuture			11
future			12
future.apply			12
future.batchtools			11
future.callr			11
future.mirai	1		11
future.tests			11
globals			12
listenv			12
matrixStats			12
parallelly			12
port4me			12
profmem	1		10
progressr			11
PSCBS			12
R.cache		8	3
R.devices			12
R.filesets			12
R.huge			12
R.matlab		8	3
R.methodsS3			11
R.oo			12
R.rsp			12
R.utils			11
seguid			12
startup			11
TopDom		8	3

Package ACNE

Current CRAN status: OK: 12

Package aroma.affymetrix

Current CRAN status: NOTE: 8, OK: 4

Version: 3.2.2
Check: installed package size
Result: NOTE installed size is 5.9Mb sub-directories of 1Mb or more: R 2.3Mb help 1.2Mb testScripts 1.3Mb Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64

Version: 3.2.2
Check: package dependencies
Result: NOTE Package suggested but not available for checking: ‘AffymetrixDataTestFiles’ Flavors: r-release-macos-arm64, r-release-macos-x86_64

Version: 3.2.2
Check: package dependencies
Result: NOTE Packages suggested but not available for checking: 'affxparser', 'oligo', 'oligoClasses', 'pdInfoBuilder', 'AffymetrixDataTestFiles' Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Version: 3.2.2
Check: Rd cross-references
Result: NOTE Packages unavailable to check Rd xrefs: ‘affxparser’, ‘oligo’, ‘oligoClasses’ Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Package aroma.apd

Current CRAN status: NOTE: 2, OK: 9

Version: 0.7.0
Check: package dependencies
Result: NOTE Package suggested but not available for checking: ‘affxparser’ Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Version: 0.7.0
Check: Rd cross-references
Result: NOTE Package unavailable to check Rd xrefs: ‘affxparser’ Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Package aroma.cn

Current CRAN status: NOTE: 2, OK: 10

Version: 1.7.1
Check: package dependencies
Result: NOTE Package suggested but not available for checking: ‘GLAD’ Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Package aroma.core

Current CRAN status: NOTE: 12

Version: 3.3.1
Check: package dependencies
Result: NOTE Packages suggested but not available for checking: 'sfit', 'expectile', 'HaarSeg', 'mpcbs' Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-windows-x86_64

Version: 3.3.1
Check: package dependencies
Result: NOTE Packages suggested but not available for checking: 'GLAD', 'sfit', 'expectile', 'HaarSeg', 'mpcbs' Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Version: 3.3.1
Check: Rd cross-references
Result: NOTE Package unavailable to check Rd xrefs: ‘GLAD’ Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64

Package calmate

Current CRAN status: ERROR: 1, OK: 11

Version: 0.13.0
Check: package dependencies
Result: ERROR Package required but not available: ‘aroma.core’ See section ‘The DESCRIPTION file’ in the ‘Writing R Extensions’ manual. Flavor: r-oldrel-macos-arm64

Package dChipIO

Current CRAN status: OK: 11

Package doFuture

Current CRAN status: OK: 11

Package future

Current CRAN status: OK: 12

Package future.apply

Current CRAN status: OK: 12

Package future.batchtools

Current CRAN status: OK: 11

Package future.callr

Current CRAN status: OK: 11

Package future.mirai

Current CRAN status: ERROR: 1, OK: 11

Version: 0.2.0
Check: tests
Result: ERROR Running ‘demo.R’ Running ‘dotdotdot.R’ [2s/11s] Running ‘future,labels.R’ [2s/11s] Running ‘future,lazy.R’ [1s/10s] Running ‘future.tests,mirai_cluster.R’ [10s/47s] Running ‘future.tests-mirai_multisession.R’ [12s/59s] Running ‘globals,formulas.R’ [2s/10s] Running ‘globals,manual.R’ Running ‘globals,nested.R’ Running ‘globals,subassignment.R’ Running ‘globals,tricky.R’ [2s/12s] Running ‘mirai_cluster,worker-termination.R’ [1s/10s] Running ‘mirai_cluster.R’ [2s/18s] Running ‘nbrOfWorkers.R’ Running ‘plan.R’ [1s/13s] Running ‘rng.R’ Running ‘stdout.R’ Running ‘zzz,future_lapply.R’ [34s/92s] Running the tests in ‘tests/mirai_cluster,worker-termination.R’ failed. Complete output: > source("incl/start.R") Loading required package: future [15:36:58.015] plan(): Setting new future strategy stack: [15:36:58.016] List of future strategies: [15:36:58.016] 1. mirai_multisession: [15:36:58.016] - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores()) [15:36:58.016] - tweaked: FALSE [15:36:58.016] - call: future::plan(future.mirai::mirai_multisession) [15:36:58.162] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... [15:36:58.163] < mirai | $data > [15:36:58.286] getGlobalsAndPackages() ... [15:36:58.286] Not searching for globals [15:36:58.291] - globals: [0] <none> [15:36:58.291] getGlobalsAndPackages() ... DONE [15:36:58.293] getGlobalsAndPackages() ... [15:36:58.293] [15:36:58.294] - globals: [0] <none> [15:36:58.294] getGlobalsAndPackages() ... DONE [15:37:02.274] Packages needed by the future expression (n = 0): <none> [15:37:02.304] Packages needed by future strategies (n = 0): <none> [15:37:02.307] { [15:37:02.307] { [15:37:02.307] { [15:37:02.307] ...future.startTime <- base::Sys.time() [15:37:02.307] { [15:37:02.307] { [15:37:02.307] { [15:37:02.307] base::local({ [15:37:02.307] has_future <- base::requireNamespace("future", [15:37:02.307] quietly = TRUE) [15:37:02.307] if (has_future) { [15:37:02.307] ns <- base::getNamespace("future") [15:37:02.307] version <- ns[[".package"]][["version"]] [15:37:02.307] if (is.null(version)) [15:37:02.307] version <- utils::packageVersion("future") [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] version <- NULL [15:37:02.307] } [15:37:02.307] if (!has_future || version < "1.8.0") { [15:37:02.307] info <- base::c(r_version = base::gsub("R version ", [15:37:02.307] "", base::R.version$version.string), [15:37:02.307] platform = base::sprintf("%s (%s-bit)", [15:37:02.307] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [15:37:02.307] os = base::paste(base::Sys.info()[base::c("sysname", [15:37:02.307] "release", "version")], collapse = " "), [15:37:02.307] hostname = base::Sys.info()[["nodename"]]) [15:37:02.307] info <- base::sprintf("%s: %s", base::names(info), [15:37:02.307] info) [15:37:02.307] info <- base::paste(info, collapse = "; ") [15:37:02.307] if (!has_future) { [15:37:02.307] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [15:37:02.307] info) [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [15:37:02.307] info, version) [15:37:02.307] } [15:37:02.307] base::stop(msg) [15:37:02.307] } [15:37:02.307] }) [15:37:02.307] } [15:37:02.307] ...future.strategy.old <- future::plan("list") [15:37:02.307] options(future.plan = NULL) [15:37:02.307] Sys.unsetenv("R_FUTURE_PLAN") [15:37:02.307] future::plan("default", .cleanup = FALSE, .init = FALSE) [15:37:02.307] } [15:37:02.307] ...future.workdir <- getwd() [15:37:02.307] } [15:37:02.307] ...future.oldOptions <- base::as.list(base::.Options) [15:37:02.307] ...future.oldEnvVars <- base::Sys.getenv() [15:37:02.307] } [15:37:02.307] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, [15:37:02.307] future.globals.maxSize = NULL, future.globals.method = NULL, [15:37:02.307] future.globals.onMissing = NULL, future.globals.onReference = NULL, [15:37:02.307] future.globals.resolve = NULL, future.resolve.recursive = NULL, [15:37:02.307] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [15:37:02.307] future.stdout.windows.reencode = NULL, width = 80L) [15:37:02.307] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [15:37:02.307] base::names(...future.oldOptions)) [15:37:02.307] } [15:37:02.307] if (FALSE) { [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] if (TRUE) { [15:37:02.307] ...future.stdout <- base::rawConnection(base::raw(0L), [15:37:02.307] open = "w") [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [15:37:02.307] windows = "NUL", "/dev/null"), open = "w") [15:37:02.307] } [15:37:02.307] base::sink(...future.stdout, type = "output", split = FALSE) [15:37:02.307] base::on.exit(if (!base::is.null(...future.stdout)) { [15:37:02.307] base::sink(type = "output", split = FALSE) [15:37:02.307] base::close(...future.stdout) [15:37:02.307] }, add = TRUE) [15:37:02.307] } [15:37:02.307] ...future.frame <- base::sys.nframe() [15:37:02.307] ...future.conditions <- base::list() [15:37:02.307] ...future.rng <- base::globalenv()$.Random.seed [15:37:02.307] if (FALSE) { [15:37:02.307] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [15:37:02.307] "...future.value", "...future.globalenv.names", ".Random.seed") [15:37:02.307] } [15:37:02.307] ...future.result <- base::tryCatch({ [15:37:02.307] base::withCallingHandlers({ [15:37:02.307] ...future.value <- base::withVisible(base::local(NA)) [15:37:02.307] future::FutureResult(value = ...future.value$value, [15:37:02.307] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [15:37:02.307] ...future.rng), globalenv = if (FALSE) [15:37:02.307] list(added = base::setdiff(base::names(base::.GlobalEnv), [15:37:02.307] ...future.globalenv.names)) [15:37:02.307] else NULL, started = ...future.startTime, version = "1.8") [15:37:02.307] }, condition = base::local({ [15:37:02.307] c <- base::c [15:37:02.307] inherits <- base::inherits [15:37:02.307] invokeRestart <- base::invokeRestart [15:37:02.307] length <- base::length [15:37:02.307] list <- base::list [15:37:02.307] seq.int <- base::seq.int [15:37:02.307] signalCondition <- base::signalCondition [15:37:02.307] sys.calls <- base::sys.calls [15:37:02.307] `[[` <- base::`[[` [15:37:02.307] `+` <- base::`+` [15:37:02.307] `<<-` <- base::`<<-` [15:37:02.307] sysCalls <- function(calls = sys.calls(), from = 1L) { [15:37:02.307] calls[seq.int(from = from + 12L, to = length(calls) - [15:37:02.307] 3L)] [15:37:02.307] } [15:37:02.307] function(cond) { [15:37:02.307] is_error <- inherits(cond, "error") [15:37:02.307] ignore <- !is_error && !is.null(NULL) && inherits(cond, [15:37:02.307] NULL) [15:37:02.307] if (is_error) { [15:37:02.307] sessionInformation <- function() { [15:37:02.307] list(r = base::R.Version(), locale = base::Sys.getlocale(), [15:37:02.307] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [15:37:02.307] search = base::search(), system = base::Sys.info()) [15:37:02.307] } [15:37:02.307] ...future.conditions[[length(...future.conditions) + [15:37:02.307] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [15:37:02.307] cond$call), session = sessionInformation(), [15:37:02.307] timestamp = base::Sys.time(), signaled = 0L) [15:37:02.307] signalCondition(cond) [15:37:02.307] } [15:37:02.307] else if (!ignore && TRUE && inherits(cond, "condition")) { [15:37:02.307] signal <- FALSE && inherits(cond, character(0)) [15:37:02.307] ...future.conditions[[length(...future.conditions) + [15:37:02.307] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [15:37:02.307] if (FALSE && !signal) { [15:37:02.307] muffleCondition <- function (cond, pattern = "^muffle") [15:37:02.307] { [15:37:02.307] inherits <- base::inherits [15:37:02.307] invokeRestart <- base::invokeRestart [15:37:02.307] is.null <- base::is.null [15:37:02.307] muffled <- FALSE [15:37:02.307] if (inherits(cond, "message")) { [15:37:02.307] muffled <- grepl(pattern, "muffleMessage") [15:37:02.307] if (muffled) [15:37:02.307] invokeRestart("muffleMessage") [15:37:02.307] } [15:37:02.307] else if (inherits(cond, "warning")) { [15:37:02.307] muffled <- grepl(pattern, "muffleWarning") [15:37:02.307] if (muffled) [15:37:02.307] invokeRestart("muffleWarning") [15:37:02.307] } [15:37:02.307] else if (inherits(cond, "condition")) { [15:37:02.307] if (!is.null(pattern)) { [15:37:02.307] computeRestarts <- base::computeRestarts [15:37:02.307] grepl <- base::grepl [15:37:02.307] restarts <- computeRestarts(cond) [15:37:02.307] for (restart in restarts) { [15:37:02.307] name <- restart$name [15:37:02.307] if (is.null(name)) [15:37:02.307] next [15:37:02.307] if (!grepl(pattern, name)) [15:37:02.307] next [15:37:02.307] invokeRestart(restart) [15:37:02.307] muffled <- TRUE [15:37:02.307] break [15:37:02.307] } [15:37:02.307] } [15:37:02.307] } [15:37:02.307] invisible(muffled) [15:37:02.307] } [15:37:02.307] muffleCondition(cond, pattern = "^muffle") [15:37:02.307] } [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] if (TRUE) { [15:37:02.307] muffleCondition <- function (cond, pattern = "^muffle") [15:37:02.307] { [15:37:02.307] inherits <- base::inherits [15:37:02.307] invokeRestart <- base::invokeRestart [15:37:02.307] is.null <- base::is.null [15:37:02.307] muffled <- FALSE [15:37:02.307] if (inherits(cond, "message")) { [15:37:02.307] muffled <- grepl(pattern, "muffleMessage") [15:37:02.307] if (muffled) [15:37:02.307] invokeRestart("muffleMessage") [15:37:02.307] } [15:37:02.307] else if (inherits(cond, "warning")) { [15:37:02.307] muffled <- grepl(pattern, "muffleWarning") [15:37:02.307] if (muffled) [15:37:02.307] invokeRestart("muffleWarning") [15:37:02.307] } [15:37:02.307] else if (inherits(cond, "condition")) { [15:37:02.307] if (!is.null(pattern)) { [15:37:02.307] computeRestarts <- base::computeRestarts [15:37:02.307] grepl <- base::grepl [15:37:02.307] restarts <- computeRestarts(cond) [15:37:02.307] for (restart in restarts) { [15:37:02.307] name <- restart$name [15:37:02.307] if (is.null(name)) [15:37:02.307] next [15:37:02.307] if (!grepl(pattern, name)) [15:37:02.307] next [15:37:02.307] invokeRestart(restart) [15:37:02.307] muffled <- TRUE [15:37:02.307] break [15:37:02.307] } [15:37:02.307] } [15:37:02.307] } [15:37:02.307] invisible(muffled) [15:37:02.307] } [15:37:02.307] muffleCondition(cond, pattern = "^muffle") [15:37:02.307] } [15:37:02.307] } [15:37:02.307] } [15:37:02.307] })) [15:37:02.307] }, error = function(ex) { [15:37:02.307] base::structure(base::list(value = NULL, visible = NULL, [15:37:02.307] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [15:37:02.307] ...future.rng), started = ...future.startTime, [15:37:02.307] finished = Sys.time(), session_uuid = NA_character_, [15:37:02.307] version = "1.8"), class = "FutureResult") [15:37:02.307] }, finally = { [15:37:02.307] if (!identical(...future.workdir, getwd())) [15:37:02.307] setwd(...future.workdir) [15:37:02.307] { [15:37:02.307] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [15:37:02.307] ...future.oldOptions$nwarnings <- NULL [15:37:02.307] } [15:37:02.307] base::options(...future.oldOptions) [15:37:02.307] if (.Platform$OS.type == "windows") { [15:37:02.307] old_names <- names(...future.oldEnvVars) [15:37:02.307] envs <- base::Sys.getenv() [15:37:02.307] names <- names(envs) [15:37:02.307] common <- intersect(names, old_names) [15:37:02.307] added <- setdiff(names, old_names) [15:37:02.307] removed <- setdiff(old_names, names) [15:37:02.307] changed <- common[...future.oldEnvVars[common] != [15:37:02.307] envs[common]] [15:37:02.307] NAMES <- toupper(changed) [15:37:02.307] args <- list() [15:37:02.307] for (kk in seq_along(NAMES)) { [15:37:02.307] name <- changed[[kk]] [15:37:02.307] NAME <- NAMES[[kk]] [15:37:02.307] if (name != NAME && is.element(NAME, old_names)) [15:37:02.307] next [15:37:02.307] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:02.307] } [15:37:02.307] NAMES <- toupper(added) [15:37:02.307] for (kk in seq_along(NAMES)) { [15:37:02.307] name <- added[[kk]] [15:37:02.307] NAME <- NAMES[[kk]] [15:37:02.307] if (name != NAME && is.element(NAME, old_names)) [15:37:02.307] next [15:37:02.307] args[[name]] <- "" [15:37:02.307] } [15:37:02.307] NAMES <- toupper(removed) [15:37:02.307] for (kk in seq_along(NAMES)) { [15:37:02.307] name <- removed[[kk]] [15:37:02.307] NAME <- NAMES[[kk]] [15:37:02.307] if (name != NAME && is.element(NAME, old_names)) [15:37:02.307] next [15:37:02.307] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:02.307] } [15:37:02.307] if (length(args) > 0) [15:37:02.307] base::do.call(base::Sys.setenv, args = args) [15:37:02.307] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [15:37:02.307] } [15:37:02.307] { [15:37:02.307] if (base::length(...future.futureOptionsAdded) > [15:37:02.307] 0L) { [15:37:02.307] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [15:37:02.307] base::names(opts) <- ...future.futureOptionsAdded [15:37:02.307] base::options(opts) [15:37:02.307] } [15:37:02.307] { [15:37:02.307] NULL [15:37:02.307] options(future.plan = NULL) [15:37:02.307] if (is.na(NA_character_)) [15:37:02.307] Sys.unsetenv("R_FUTURE_PLAN") [15:37:02.307] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [15:37:02.307] future::plan(...future.strategy.old, .cleanup = FALSE, [15:37:02.307] .init = FALSE) [15:37:02.307] } [15:37:02.307] } [15:37:02.307] } [15:37:02.307] }) [15:37:02.307] if (TRUE) { [15:37:02.307] base::sink(type = "output", split = FALSE) [15:37:02.307] if (TRUE) { [15:37:02.307] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [15:37:02.307] } [15:37:02.307] else { [15:37:02.307] ...future.result["stdout"] <- base::list(NULL) [15:37:02.307] } [15:37:02.307] base::close(...future.stdout) [15:37:02.307] ...future.stdout <- NULL [15:37:02.307] } [15:37:02.307] ...future.result$conditions <- ...future.conditions [15:37:02.307] ...future.result$finished <- base::Sys.time() [15:37:02.307] ...future.result [15:37:02.307] } [15:37:03.726] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE [15:37:03.727] plan(): nbrOfWorkers() = 2 > > message("*** mirai_multisession() - terminating workers ...") *** mirai_multisession() - terminating workers ... > > plan(mirai_multisession, workers = 2L) [15:37:03.736] plan(): Setting new future strategy stack: [15:37:03.737] List of future strategies: [15:37:03.737] 1. mirai_multisession: [15:37:03.737] - args: function (..., workers = 2L, envir = parent.frame()) [15:37:03.737] - tweaked: TRUE [15:37:03.737] - call: plan(mirai_multisession, workers = 2L) [15:37:03.844] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... [15:37:03.845] < mirai | $data > [15:37:03.846] getGlobalsAndPackages() ... [15:37:03.846] Not searching for globals [15:37:03.847] - globals: [0] <none> [15:37:03.847] getGlobalsAndPackages() ... DONE [15:37:03.848] getGlobalsAndPackages() ... [15:37:03.852] [15:37:03.853] - globals: [0] <none> [15:37:03.853] getGlobalsAndPackages() ... DONE [15:37:03.854] Packages needed by the future expression (n = 0): <none> [15:37:03.855] Packages needed by future strategies (n = 0): <none> [15:37:03.861] { [15:37:03.861] { [15:37:03.861] { [15:37:03.861] ...future.startTime <- base::Sys.time() [15:37:03.861] { [15:37:03.861] { [15:37:03.861] { [15:37:03.861] base::local({ [15:37:03.861] has_future <- base::requireNamespace("future", [15:37:03.861] quietly = TRUE) [15:37:03.861] if (has_future) { [15:37:03.861] ns <- base::getNamespace("future") [15:37:03.861] version <- ns[[".package"]][["version"]] [15:37:03.861] if (is.null(version)) [15:37:03.861] version <- utils::packageVersion("future") [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] version <- NULL [15:37:03.861] } [15:37:03.861] if (!has_future || version < "1.8.0") { [15:37:03.861] info <- base::c(r_version = base::gsub("R version ", [15:37:03.861] "", base::R.version$version.string), [15:37:03.861] platform = base::sprintf("%s (%s-bit)", [15:37:03.861] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [15:37:03.861] os = base::paste(base::Sys.info()[base::c("sysname", [15:37:03.861] "release", "version")], collapse = " "), [15:37:03.861] hostname = base::Sys.info()[["nodename"]]) [15:37:03.861] info <- base::sprintf("%s: %s", base::names(info), [15:37:03.861] info) [15:37:03.861] info <- base::paste(info, collapse = "; ") [15:37:03.861] if (!has_future) { [15:37:03.861] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [15:37:03.861] info) [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [15:37:03.861] info, version) [15:37:03.861] } [15:37:03.861] base::stop(msg) [15:37:03.861] } [15:37:03.861] }) [15:37:03.861] } [15:37:03.861] ...future.strategy.old <- future::plan("list") [15:37:03.861] options(future.plan = NULL) [15:37:03.861] Sys.unsetenv("R_FUTURE_PLAN") [15:37:03.861] future::plan("default", .cleanup = FALSE, .init = FALSE) [15:37:03.861] } [15:37:03.861] ...future.workdir <- getwd() [15:37:03.861] } [15:37:03.861] ...future.oldOptions <- base::as.list(base::.Options) [15:37:03.861] ...future.oldEnvVars <- base::Sys.getenv() [15:37:03.861] } [15:37:03.861] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, [15:37:03.861] future.globals.maxSize = NULL, future.globals.method = NULL, [15:37:03.861] future.globals.onMissing = NULL, future.globals.onReference = NULL, [15:37:03.861] future.globals.resolve = NULL, future.resolve.recursive = NULL, [15:37:03.861] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [15:37:03.861] future.stdout.windows.reencode = NULL, width = 80L) [15:37:03.861] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [15:37:03.861] base::names(...future.oldOptions)) [15:37:03.861] } [15:37:03.861] if (FALSE) { [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] if (TRUE) { [15:37:03.861] ...future.stdout <- base::rawConnection(base::raw(0L), [15:37:03.861] open = "w") [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [15:37:03.861] windows = "NUL", "/dev/null"), open = "w") [15:37:03.861] } [15:37:03.861] base::sink(...future.stdout, type = "output", split = FALSE) [15:37:03.861] base::on.exit(if (!base::is.null(...future.stdout)) { [15:37:03.861] base::sink(type = "output", split = FALSE) [15:37:03.861] base::close(...future.stdout) [15:37:03.861] }, add = TRUE) [15:37:03.861] } [15:37:03.861] ...future.frame <- base::sys.nframe() [15:37:03.861] ...future.conditions <- base::list() [15:37:03.861] ...future.rng <- base::globalenv()$.Random.seed [15:37:03.861] if (FALSE) { [15:37:03.861] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [15:37:03.861] "...future.value", "...future.globalenv.names", ".Random.seed") [15:37:03.861] } [15:37:03.861] ...future.result <- base::tryCatch({ [15:37:03.861] base::withCallingHandlers({ [15:37:03.861] ...future.value <- base::withVisible(base::local(NA)) [15:37:03.861] future::FutureResult(value = ...future.value$value, [15:37:03.861] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [15:37:03.861] ...future.rng), globalenv = if (FALSE) [15:37:03.861] list(added = base::setdiff(base::names(base::.GlobalEnv), [15:37:03.861] ...future.globalenv.names)) [15:37:03.861] else NULL, started = ...future.startTime, version = "1.8") [15:37:03.861] }, condition = base::local({ [15:37:03.861] c <- base::c [15:37:03.861] inherits <- base::inherits [15:37:03.861] invokeRestart <- base::invokeRestart [15:37:03.861] length <- base::length [15:37:03.861] list <- base::list [15:37:03.861] seq.int <- base::seq.int [15:37:03.861] signalCondition <- base::signalCondition [15:37:03.861] sys.calls <- base::sys.calls [15:37:03.861] `[[` <- base::`[[` [15:37:03.861] `+` <- base::`+` [15:37:03.861] `<<-` <- base::`<<-` [15:37:03.861] sysCalls <- function(calls = sys.calls(), from = 1L) { [15:37:03.861] calls[seq.int(from = from + 12L, to = length(calls) - [15:37:03.861] 3L)] [15:37:03.861] } [15:37:03.861] function(cond) { [15:37:03.861] is_error <- inherits(cond, "error") [15:37:03.861] ignore <- !is_error && !is.null(NULL) && inherits(cond, [15:37:03.861] NULL) [15:37:03.861] if (is_error) { [15:37:03.861] sessionInformation <- function() { [15:37:03.861] list(r = base::R.Version(), locale = base::Sys.getlocale(), [15:37:03.861] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [15:37:03.861] search = base::search(), system = base::Sys.info()) [15:37:03.861] } [15:37:03.861] ...future.conditions[[length(...future.conditions) + [15:37:03.861] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [15:37:03.861] cond$call), session = sessionInformation(), [15:37:03.861] timestamp = base::Sys.time(), signaled = 0L) [15:37:03.861] signalCondition(cond) [15:37:03.861] } [15:37:03.861] else if (!ignore && TRUE && inherits(cond, "condition")) { [15:37:03.861] signal <- FALSE && inherits(cond, character(0)) [15:37:03.861] ...future.conditions[[length(...future.conditions) + [15:37:03.861] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [15:37:03.861] if (FALSE && !signal) { [15:37:03.861] muffleCondition <- function (cond, pattern = "^muffle") [15:37:03.861] { [15:37:03.861] inherits <- base::inherits [15:37:03.861] invokeRestart <- base::invokeRestart [15:37:03.861] is.null <- base::is.null [15:37:03.861] muffled <- FALSE [15:37:03.861] if (inherits(cond, "message")) { [15:37:03.861] muffled <- grepl(pattern, "muffleMessage") [15:37:03.861] if (muffled) [15:37:03.861] invokeRestart("muffleMessage") [15:37:03.861] } [15:37:03.861] else if (inherits(cond, "warning")) { [15:37:03.861] muffled <- grepl(pattern, "muffleWarning") [15:37:03.861] if (muffled) [15:37:03.861] invokeRestart("muffleWarning") [15:37:03.861] } [15:37:03.861] else if (inherits(cond, "condition")) { [15:37:03.861] if (!is.null(pattern)) { [15:37:03.861] computeRestarts <- base::computeRestarts [15:37:03.861] grepl <- base::grepl [15:37:03.861] restarts <- computeRestarts(cond) [15:37:03.861] for (restart in restarts) { [15:37:03.861] name <- restart$name [15:37:03.861] if (is.null(name)) [15:37:03.861] next [15:37:03.861] if (!grepl(pattern, name)) [15:37:03.861] next [15:37:03.861] invokeRestart(restart) [15:37:03.861] muffled <- TRUE [15:37:03.861] break [15:37:03.861] } [15:37:03.861] } [15:37:03.861] } [15:37:03.861] invisible(muffled) [15:37:03.861] } [15:37:03.861] muffleCondition(cond, pattern = "^muffle") [15:37:03.861] } [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] if (TRUE) { [15:37:03.861] muffleCondition <- function (cond, pattern = "^muffle") [15:37:03.861] { [15:37:03.861] inherits <- base::inherits [15:37:03.861] invokeRestart <- base::invokeRestart [15:37:03.861] is.null <- base::is.null [15:37:03.861] muffled <- FALSE [15:37:03.861] if (inherits(cond, "message")) { [15:37:03.861] muffled <- grepl(pattern, "muffleMessage") [15:37:03.861] if (muffled) [15:37:03.861] invokeRestart("muffleMessage") [15:37:03.861] } [15:37:03.861] else if (inherits(cond, "warning")) { [15:37:03.861] muffled <- grepl(pattern, "muffleWarning") [15:37:03.861] if (muffled) [15:37:03.861] invokeRestart("muffleWarning") [15:37:03.861] } [15:37:03.861] else if (inherits(cond, "condition")) { [15:37:03.861] if (!is.null(pattern)) { [15:37:03.861] computeRestarts <- base::computeRestarts [15:37:03.861] grepl <- base::grepl [15:37:03.861] restarts <- computeRestarts(cond) [15:37:03.861] for (restart in restarts) { [15:37:03.861] name <- restart$name [15:37:03.861] if (is.null(name)) [15:37:03.861] next [15:37:03.861] if (!grepl(pattern, name)) [15:37:03.861] next [15:37:03.861] invokeRestart(restart) [15:37:03.861] muffled <- TRUE [15:37:03.861] break [15:37:03.861] } [15:37:03.861] } [15:37:03.861] } [15:37:03.861] invisible(muffled) [15:37:03.861] } [15:37:03.861] muffleCondition(cond, pattern = "^muffle") [15:37:03.861] } [15:37:03.861] } [15:37:03.861] } [15:37:03.861] })) [15:37:03.861] }, error = function(ex) { [15:37:03.861] base::structure(base::list(value = NULL, visible = NULL, [15:37:03.861] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [15:37:03.861] ...future.rng), started = ...future.startTime, [15:37:03.861] finished = Sys.time(), session_uuid = NA_character_, [15:37:03.861] version = "1.8"), class = "FutureResult") [15:37:03.861] }, finally = { [15:37:03.861] if (!identical(...future.workdir, getwd())) [15:37:03.861] setwd(...future.workdir) [15:37:03.861] { [15:37:03.861] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [15:37:03.861] ...future.oldOptions$nwarnings <- NULL [15:37:03.861] } [15:37:03.861] base::options(...future.oldOptions) [15:37:03.861] if (.Platform$OS.type == "windows") { [15:37:03.861] old_names <- names(...future.oldEnvVars) [15:37:03.861] envs <- base::Sys.getenv() [15:37:03.861] names <- names(envs) [15:37:03.861] common <- intersect(names, old_names) [15:37:03.861] added <- setdiff(names, old_names) [15:37:03.861] removed <- setdiff(old_names, names) [15:37:03.861] changed <- common[...future.oldEnvVars[common] != [15:37:03.861] envs[common]] [15:37:03.861] NAMES <- toupper(changed) [15:37:03.861] args <- list() [15:37:03.861] for (kk in seq_along(NAMES)) { [15:37:03.861] name <- changed[[kk]] [15:37:03.861] NAME <- NAMES[[kk]] [15:37:03.861] if (name != NAME && is.element(NAME, old_names)) [15:37:03.861] next [15:37:03.861] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:03.861] } [15:37:03.861] NAMES <- toupper(added) [15:37:03.861] for (kk in seq_along(NAMES)) { [15:37:03.861] name <- added[[kk]] [15:37:03.861] NAME <- NAMES[[kk]] [15:37:03.861] if (name != NAME && is.element(NAME, old_names)) [15:37:03.861] next [15:37:03.861] args[[name]] <- "" [15:37:03.861] } [15:37:03.861] NAMES <- toupper(removed) [15:37:03.861] for (kk in seq_along(NAMES)) { [15:37:03.861] name <- removed[[kk]] [15:37:03.861] NAME <- NAMES[[kk]] [15:37:03.861] if (name != NAME && is.element(NAME, old_names)) [15:37:03.861] next [15:37:03.861] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:03.861] } [15:37:03.861] if (length(args) > 0) [15:37:03.861] base::do.call(base::Sys.setenv, args = args) [15:37:03.861] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [15:37:03.861] } [15:37:03.861] { [15:37:03.861] if (base::length(...future.futureOptionsAdded) > [15:37:03.861] 0L) { [15:37:03.861] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [15:37:03.861] base::names(opts) <- ...future.futureOptionsAdded [15:37:03.861] base::options(opts) [15:37:03.861] } [15:37:03.861] { [15:37:03.861] NULL [15:37:03.861] options(future.plan = NULL) [15:37:03.861] if (is.na(NA_character_)) [15:37:03.861] Sys.unsetenv("R_FUTURE_PLAN") [15:37:03.861] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [15:37:03.861] future::plan(...future.strategy.old, .cleanup = FALSE, [15:37:03.861] .init = FALSE) [15:37:03.861] } [15:37:03.861] } [15:37:03.861] } [15:37:03.861] }) [15:37:03.861] if (TRUE) { [15:37:03.861] base::sink(type = "output", split = FALSE) [15:37:03.861] if (TRUE) { [15:37:03.861] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [15:37:03.861] } [15:37:03.861] else { [15:37:03.861] ...future.result["stdout"] <- base::list(NULL) [15:37:03.861] } [15:37:03.861] base::close(...future.stdout) [15:37:03.861] ...future.stdout <- NULL [15:37:03.861] } [15:37:03.861] ...future.result$conditions <- ...future.conditions [15:37:03.861] ...future.result$finished <- base::Sys.time() [15:37:03.861] ...future.result [15:37:03.861] } [15:37:05.407] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE [15:37:05.408] plan(): nbrOfWorkers() = 2 > > all <- nbrOfWorkers() > message("Number of workers: ", all) Number of workers: 2 > stopifnot(all == 2L) > free <- nbrOfFreeWorkers() > message("Number of free workers: ", all) Number of free workers: 2 > stopifnot(free == 2L) > > ## Don't test on MS Windows, because that will leave behind a > ## stray Rscript<hexcode> file, which 'R CMD check --as-cran' > ## will complain about. /HB 2024-04-12 > if (.Platform$OS.type != "windows") { + ## Force R worker to quit + f <- future({ tools::pskill(pid = Sys.getpid()) }) + res <- tryCatch(value(f), error = identity) + print(res) + stopifnot(inherits(res, "FutureError")) + + stopifnot( + nbrOfWorkers() == all - 1L, + nbrOfFreeWorkers() == free - 1L + ) + } [15:37:05.410] getGlobalsAndPackages() ... [15:37:05.411] Searching for globals... [15:37:05.456] - globals found: [3] '{', '::', 'Sys.getpid' [15:37:05.456] Searching for globals ... DONE [15:37:05.457] Resolving globals: FALSE [15:37:05.458] [15:37:05.459] [15:37:05.459] getGlobalsAndPackages() ... DONE [15:37:05.460] run() for 'Future' ... [15:37:05.461] - state: 'created' [15:37:05.461] - Future backend: 'FutureStrategy', 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' [15:37:05.462] - Future class: 'MiraiFuture', 'MultiprocessFuture', 'Future', 'environment' [15:37:05.463] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ... [15:37:05.463] - Field: 'label' [15:37:05.464] - Field: 'local' [15:37:05.464] - Field: 'owner' [15:37:05.464] - Field: 'envir' [15:37:05.465] - Field: 'packages' [15:37:05.465] - Field: 'gc' [15:37:05.465] - Field: 'conditions' [15:37:05.466] - Field: 'expr' [15:37:05.466] - Field: 'uuid' [15:37:05.466] - Field: 'seed' [15:37:05.467] - Field: 'version' [15:37:05.467] - Field: 'result' [15:37:05.468] - Field: 'asynchronous' [15:37:05.468] - Field: 'calls' [15:37:05.468] - Field: 'globals' [15:37:05.469] - Field: 'stdout' [15:37:05.469] - Field: 'earlySignal' [15:37:05.469] - Field: 'lazy' [15:37:05.470] - Field: 'state' [15:37:05.470] - Field: '.cluster' [15:37:05.470] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ... done [15:37:05.471] - Launch lazy future ... [15:37:05.471] Packages needed by the future expression (n = 0): <none> [15:37:05.472] Packages needed by future strategies (n = 0): <none> [15:37:05.474] { [15:37:05.474] { [15:37:05.474] { [15:37:05.474] ...future.startTime <- base::Sys.time() [15:37:05.474] { [15:37:05.474] { [15:37:05.474] { [15:37:05.474] base::local({ [15:37:05.474] has_future <- base::requireNamespace("future", [15:37:05.474] quietly = TRUE) [15:37:05.474] if (has_future) { [15:37:05.474] ns <- base::getNamespace("future") [15:37:05.474] version <- ns[[".package"]][["version"]] [15:37:05.474] if (is.null(version)) [15:37:05.474] version <- utils::packageVersion("future") [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] version <- NULL [15:37:05.474] } [15:37:05.474] if (!has_future || version < "1.8.0") { [15:37:05.474] info <- base::c(r_version = base::gsub("R version ", [15:37:05.474] "", base::R.version$version.string), [15:37:05.474] platform = base::sprintf("%s (%s-bit)", [15:37:05.474] base::R.version$platform, 8 * base::.Machine$sizeof.pointer), [15:37:05.474] os = base::paste(base::Sys.info()[base::c("sysname", [15:37:05.474] "release", "version")], collapse = " "), [15:37:05.474] hostname = base::Sys.info()[["nodename"]]) [15:37:05.474] info <- base::sprintf("%s: %s", base::names(info), [15:37:05.474] info) [15:37:05.474] info <- base::paste(info, collapse = "; ") [15:37:05.474] if (!has_future) { [15:37:05.474] msg <- base::sprintf("Package 'future' is not installed on worker (%s)", [15:37:05.474] info) [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", [15:37:05.474] info, version) [15:37:05.474] } [15:37:05.474] base::stop(msg) [15:37:05.474] } [15:37:05.474] }) [15:37:05.474] } [15:37:05.474] ...future.strategy.old <- future::plan("list") [15:37:05.474] options(future.plan = NULL) [15:37:05.474] Sys.unsetenv("R_FUTURE_PLAN") [15:37:05.474] future::plan("default", .cleanup = FALSE, .init = FALSE) [15:37:05.474] } [15:37:05.474] ...future.workdir <- getwd() [15:37:05.474] } [15:37:05.474] ...future.oldOptions <- base::as.list(base::.Options) [15:37:05.474] ...future.oldEnvVars <- base::Sys.getenv() [15:37:05.474] } [15:37:05.474] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, [15:37:05.474] future.globals.maxSize = NULL, future.globals.method = NULL, [15:37:05.474] future.globals.onMissing = NULL, future.globals.onReference = NULL, [15:37:05.474] future.globals.resolve = NULL, future.resolve.recursive = NULL, [15:37:05.474] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, [15:37:05.474] future.stdout.windows.reencode = NULL, width = 80L) [15:37:05.474] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), [15:37:05.474] base::names(...future.oldOptions)) [15:37:05.474] } [15:37:05.474] if (FALSE) { [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] if (TRUE) { [15:37:05.474] ...future.stdout <- base::rawConnection(base::raw(0L), [15:37:05.474] open = "w") [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] ...future.stdout <- base::file(base::switch(.Platform$OS.type, [15:37:05.474] windows = "NUL", "/dev/null"), open = "w") [15:37:05.474] } [15:37:05.474] base::sink(...future.stdout, type = "output", split = FALSE) [15:37:05.474] base::on.exit(if (!base::is.null(...future.stdout)) { [15:37:05.474] base::sink(type = "output", split = FALSE) [15:37:05.474] base::close(...future.stdout) [15:37:05.474] }, add = TRUE) [15:37:05.474] } [15:37:05.474] ...future.frame <- base::sys.nframe() [15:37:05.474] ...future.conditions <- base::list() [15:37:05.474] ...future.rng <- base::globalenv()$.Random.seed [15:37:05.474] if (FALSE) { [15:37:05.474] ...future.globalenv.names <- c(base::names(base::.GlobalEnv), [15:37:05.474] "...future.value", "...future.globalenv.names", ".Random.seed") [15:37:05.474] } [15:37:05.474] ...future.result <- base::tryCatch({ [15:37:05.474] base::withCallingHandlers({ [15:37:05.474] ...future.value <- base::withVisible(base::local({ [15:37:05.474] tools::pskill(pid = Sys.getpid()) [15:37:05.474] })) [15:37:05.474] future::FutureResult(value = ...future.value$value, [15:37:05.474] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, [15:37:05.474] ...future.rng), globalenv = if (FALSE) [15:37:05.474] list(added = base::setdiff(base::names(base::.GlobalEnv), [15:37:05.474] ...future.globalenv.names)) [15:37:05.474] else NULL, started = ...future.startTime, version = "1.8") [15:37:05.474] }, condition = base::local({ [15:37:05.474] c <- base::c [15:37:05.474] inherits <- base::inherits [15:37:05.474] invokeRestart <- base::invokeRestart [15:37:05.474] length <- base::length [15:37:05.474] list <- base::list [15:37:05.474] seq.int <- base::seq.int [15:37:05.474] signalCondition <- base::signalCondition [15:37:05.474] sys.calls <- base::sys.calls [15:37:05.474] `[[` <- base::`[[` [15:37:05.474] `+` <- base::`+` [15:37:05.474] `<<-` <- base::`<<-` [15:37:05.474] sysCalls <- function(calls = sys.calls(), from = 1L) { [15:37:05.474] calls[seq.int(from = from + 12L, to = length(calls) - [15:37:05.474] 3L)] [15:37:05.474] } [15:37:05.474] function(cond) { [15:37:05.474] is_error <- inherits(cond, "error") [15:37:05.474] ignore <- !is_error && !is.null(NULL) && inherits(cond, [15:37:05.474] NULL) [15:37:05.474] if (is_error) { [15:37:05.474] sessionInformation <- function() { [15:37:05.474] list(r = base::R.Version(), locale = base::Sys.getlocale(), [15:37:05.474] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), [15:37:05.474] search = base::search(), system = base::Sys.info()) [15:37:05.474] } [15:37:05.474] ...future.conditions[[length(...future.conditions) + [15:37:05.474] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), [15:37:05.474] cond$call), session = sessionInformation(), [15:37:05.474] timestamp = base::Sys.time(), signaled = 0L) [15:37:05.474] signalCondition(cond) [15:37:05.474] } [15:37:05.474] else if (!ignore && TRUE && inherits(cond, "condition")) { [15:37:05.474] signal <- FALSE && inherits(cond, character(0)) [15:37:05.474] ...future.conditions[[length(...future.conditions) + [15:37:05.474] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal)) [15:37:05.474] if (FALSE && !signal) { [15:37:05.474] muffleCondition <- function (cond, pattern = "^muffle") [15:37:05.474] { [15:37:05.474] inherits <- base::inherits [15:37:05.474] invokeRestart <- base::invokeRestart [15:37:05.474] is.null <- base::is.null [15:37:05.474] muffled <- FALSE [15:37:05.474] if (inherits(cond, "message")) { [15:37:05.474] muffled <- grepl(pattern, "muffleMessage") [15:37:05.474] if (muffled) [15:37:05.474] invokeRestart("muffleMessage") [15:37:05.474] } [15:37:05.474] else if (inherits(cond, "warning")) { [15:37:05.474] muffled <- grepl(pattern, "muffleWarning") [15:37:05.474] if (muffled) [15:37:05.474] invokeRestart("muffleWarning") [15:37:05.474] } [15:37:05.474] else if (inherits(cond, "condition")) { [15:37:05.474] if (!is.null(pattern)) { [15:37:05.474] computeRestarts <- base::computeRestarts [15:37:05.474] grepl <- base::grepl [15:37:05.474] restarts <- computeRestarts(cond) [15:37:05.474] for (restart in restarts) { [15:37:05.474] name <- restart$name [15:37:05.474] if (is.null(name)) [15:37:05.474] next [15:37:05.474] if (!grepl(pattern, name)) [15:37:05.474] next [15:37:05.474] invokeRestart(restart) [15:37:05.474] muffled <- TRUE [15:37:05.474] break [15:37:05.474] } [15:37:05.474] } [15:37:05.474] } [15:37:05.474] invisible(muffled) [15:37:05.474] } [15:37:05.474] muffleCondition(cond, pattern = "^muffle") [15:37:05.474] } [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] if (TRUE) { [15:37:05.474] muffleCondition <- function (cond, pattern = "^muffle") [15:37:05.474] { [15:37:05.474] inherits <- base::inherits [15:37:05.474] invokeRestart <- base::invokeRestart [15:37:05.474] is.null <- base::is.null [15:37:05.474] muffled <- FALSE [15:37:05.474] if (inherits(cond, "message")) { [15:37:05.474] muffled <- grepl(pattern, "muffleMessage") [15:37:05.474] if (muffled) [15:37:05.474] invokeRestart("muffleMessage") [15:37:05.474] } [15:37:05.474] else if (inherits(cond, "warning")) { [15:37:05.474] muffled <- grepl(pattern, "muffleWarning") [15:37:05.474] if (muffled) [15:37:05.474] invokeRestart("muffleWarning") [15:37:05.474] } [15:37:05.474] else if (inherits(cond, "condition")) { [15:37:05.474] if (!is.null(pattern)) { [15:37:05.474] computeRestarts <- base::computeRestarts [15:37:05.474] grepl <- base::grepl [15:37:05.474] restarts <- computeRestarts(cond) [15:37:05.474] for (restart in restarts) { [15:37:05.474] name <- restart$name [15:37:05.474] if (is.null(name)) [15:37:05.474] next [15:37:05.474] if (!grepl(pattern, name)) [15:37:05.474] next [15:37:05.474] invokeRestart(restart) [15:37:05.474] muffled <- TRUE [15:37:05.474] break [15:37:05.474] } [15:37:05.474] } [15:37:05.474] } [15:37:05.474] invisible(muffled) [15:37:05.474] } [15:37:05.474] muffleCondition(cond, pattern = "^muffle") [15:37:05.474] } [15:37:05.474] } [15:37:05.474] } [15:37:05.474] })) [15:37:05.474] }, error = function(ex) { [15:37:05.474] base::structure(base::list(value = NULL, visible = NULL, [15:37:05.474] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, [15:37:05.474] ...future.rng), started = ...future.startTime, [15:37:05.474] finished = Sys.time(), session_uuid = NA_character_, [15:37:05.474] version = "1.8"), class = "FutureResult") [15:37:05.474] }, finally = { [15:37:05.474] if (!identical(...future.workdir, getwd())) [15:37:05.474] setwd(...future.workdir) [15:37:05.474] { [15:37:05.474] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) { [15:37:05.474] ...future.oldOptions$nwarnings <- NULL [15:37:05.474] } [15:37:05.474] base::options(...future.oldOptions) [15:37:05.474] if (.Platform$OS.type == "windows") { [15:37:05.474] old_names <- names(...future.oldEnvVars) [15:37:05.474] envs <- base::Sys.getenv() [15:37:05.474] names <- names(envs) [15:37:05.474] common <- intersect(names, old_names) [15:37:05.474] added <- setdiff(names, old_names) [15:37:05.474] removed <- setdiff(old_names, names) [15:37:05.474] changed <- common[...future.oldEnvVars[common] != [15:37:05.474] envs[common]] [15:37:05.474] NAMES <- toupper(changed) [15:37:05.474] args <- list() [15:37:05.474] for (kk in seq_along(NAMES)) { [15:37:05.474] name <- changed[[kk]] [15:37:05.474] NAME <- NAMES[[kk]] [15:37:05.474] if (name != NAME && is.element(NAME, old_names)) [15:37:05.474] next [15:37:05.474] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:05.474] } [15:37:05.474] NAMES <- toupper(added) [15:37:05.474] for (kk in seq_along(NAMES)) { [15:37:05.474] name <- added[[kk]] [15:37:05.474] NAME <- NAMES[[kk]] [15:37:05.474] if (name != NAME && is.element(NAME, old_names)) [15:37:05.474] next [15:37:05.474] args[[name]] <- "" [15:37:05.474] } [15:37:05.474] NAMES <- toupper(removed) [15:37:05.474] for (kk in seq_along(NAMES)) { [15:37:05.474] name <- removed[[kk]] [15:37:05.474] NAME <- NAMES[[kk]] [15:37:05.474] if (name != NAME && is.element(NAME, old_names)) [15:37:05.474] next [15:37:05.474] args[[name]] <- ...future.oldEnvVars[[name]] [15:37:05.474] } [15:37:05.474] if (length(args) > 0) [15:37:05.474] base::do.call(base::Sys.setenv, args = args) [15:37:05.474] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars)) [15:37:05.474] } [15:37:05.474] { [15:37:05.474] if (base::length(...future.futureOptionsAdded) > [15:37:05.474] 0L) { [15:37:05.474] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded)) [15:37:05.474] base::names(opts) <- ...future.futureOptionsAdded [15:37:05.474] base::options(opts) [15:37:05.474] } [15:37:05.474] { [15:37:05.474] NULL [15:37:05.474] options(future.plan = NULL) [15:37:05.474] if (is.na(NA_character_)) [15:37:05.474] Sys.unsetenv("R_FUTURE_PLAN") [15:37:05.474] else Sys.setenv(R_FUTURE_PLAN = NA_character_) [15:37:05.474] future::plan(...future.strategy.old, .cleanup = FALSE, [15:37:05.474] .init = FALSE) [15:37:05.474] } [15:37:05.474] } [15:37:05.474] } [15:37:05.474] }) [15:37:05.474] if (TRUE) { [15:37:05.474] base::sink(type = "output", split = FALSE) [15:37:05.474] if (TRUE) { [15:37:05.474] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout)) [15:37:05.474] } [15:37:05.474] else { [15:37:05.474] ...future.result["stdout"] <- base::list(NULL) [15:37:05.474] } [15:37:05.474] base::close(...future.stdout) [15:37:05.474] ...future.stdout <- NULL [15:37:05.474] } [15:37:05.474] ...future.result$conditions <- ...future.conditions [15:37:05.474] ...future.result$finished <- base::Sys.time() [15:37:05.474] ...future.result [15:37:05.474] } [15:37:05.483] - Launch lazy future ... done [15:37:05.484] run() for 'MiraiFuture' ... done <FutureError: Failed to retrieve results from MiraiFuture (<none>). The mirai framework reports on error value 19> Future UUID: <NA> Error: nbrOfWorkers() == all - 1L is not TRUE Execution halted Flavor: r-devel-linux-x86_64-fedora-clang

Package future.tests

Current CRAN status: OK: 11

Package globals

Current CRAN status: OK: 12

Package listenv

Current CRAN status: OK: 12

Package matrixStats

Current CRAN status: OK: 12

Package parallelly

Current CRAN status: OK: 12

Package port4me

Current CRAN status: OK: 12

Package profmem

Current CRAN status: ERROR: 1, OK: 10

Version: 0.6.0
Check: re-building of vignette outputs
Result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘profmem.md.rsp’ using rsp R.utils v2.12.3 (2023-11-18 01:00:02 UTC) successfully loaded. See ?R.utils for help. Attaching package: ‘R.utils’ The following object is masked from ‘package:utils’: timestamp The following objects are masked from ‘package:base’: cat, commandArgs, getOption, isOpen, nullfile, parse, use, warnings Error: processing vignette 'profmem.md.rsp' failed with diagnostics: there is no package called ‘microbenchmark’ --- failed re-building ‘profmem.md.rsp’ SUMMARY: processing the following file failed: ‘profmem.md.rsp’ Error: Vignette re-building failed. Execution halted Flavor: r-release-macos-arm64