Last updated on 2024-04-23 08:58:39 CEST.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| ACNE | 14 | ||
| aroma.affymetrix | 10 | 4 | |
| aroma.apd | 2 | 11 | |
| aroma.cn | 2 | 12 | |
| aroma.core | 14 | ||
| calmate | 1 | 13 | |
| dChipIO | 13 | ||
| doFuture | 13 | ||
| future | 14 | ||
| future.apply | 14 | ||
| future.batchtools | 13 | ||
| future.callr | 13 | ||
| future.mirai | 1 | 12 | |
| future.tests | 13 | ||
| globals | 14 | ||
| listenv | 14 | ||
| matrixStats | 14 | ||
| parallelly | 14 | ||
| port4me | 14 | ||
| profmem | 1 | 12 | |
| progressr | 13 | ||
| PSCBS | 14 | ||
| R.cache | 7 | 6 | |
| R.devices | 14 | ||
| R.filesets | 14 | ||
| R.huge | 14 | ||
| R.matlab | 7 | 6 | |
| R.methodsS3 | 13 | ||
| R.oo | 14 | ||
| R.rsp | 14 | ||
| R.utils | 13 | ||
| seguid | 14 | ||
| startup | 13 | ||
| TopDom | 7 | 6 |
Current CRAN status: OK: 14
Current CRAN status: NOTE: 10, OK: 4
Version: 3.2.2
Check: package dependencies
Result: NOTE
Packages suggested but not available for checking:
'affyPLM', 'gcrma', 'oligo', 'oligoClasses', 'pdInfoBuilder'
Flavor: r-devel-linux-x86_64-debian-clang
Version: 3.2.2
Check: Rd cross-references
Result: NOTE
Packages unavailable to check Rd xrefs: ‘gcrma’, ‘affyPLM’
Unknown packages ‘oligo’, ‘oligoClasses’ in Rd xrefs
Flavor: r-devel-linux-x86_64-debian-clang
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-prerel-macos-arm64, r-prerel-macos-x86_64, r-prerel-windows-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-windows-x86_64
Version: 3.2.2
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘AffymetrixDataTestFiles’
Flavors: r-prerel-macos-arm64, r-prerel-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-release-macos-arm64, r-release-macos-x86_64
Version: 3.2.2
Check: Rd cross-references
Result: NOTE
Packages unavailable to check Rd xrefs: ‘affxparser’, ‘oligo’, ‘oligoClasses’
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:
'oligo', 'oligoClasses', 'pdInfoBuilder', 'AffymetrixDataTestFiles'
Flavor: r-oldrel-macos-arm64
Version: 3.2.2
Check: Rd cross-references
Result: NOTE
Packages unavailable to check Rd xrefs: ‘oligo’, ‘oligoClasses’
Flavor: r-oldrel-macos-arm64
Current CRAN status: NOTE: 2, OK: 11
Version: 0.7.0
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘affxparser’
Flavors: r-release-macos-arm64, r-release-macos-x86_64
Version: 0.7.0
Check: Rd cross-references
Result: NOTE
Package unavailable to check Rd xrefs: ‘affxparser’
Flavors: r-release-macos-arm64, r-release-macos-x86_64
Current CRAN status: NOTE: 2, OK: 12
Version: 1.7.1
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘GLAD’
Flavors: r-release-macos-arm64, r-release-macos-x86_64
Current CRAN status: NOTE: 14
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-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-prerel-macos-arm64, r-prerel-macos-x86_64, r-prerel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, 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-release-macos-arm64, r-release-macos-x86_64
Version: 3.3.1
Check: Rd cross-references
Result: NOTE
Package unavailable to check Rd xrefs: ‘GLAD’
Flavors: r-release-macos-arm64, r-release-macos-x86_64
Current CRAN status: ERROR: 1, OK: 13
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-release-macos-arm64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 1, OK: 12
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘demo.R’ [1s/4s]
Running ‘dotdotdot.R’ [1s/3s]
Running ‘future,labels.R’ [1s/4s]
Running ‘future,lazy.R’ [1s/3s]
Running ‘future.tests,mirai_cluster.R’ [9s/25s]
Running ‘future.tests-mirai_multisession.R’ [9s/30s]
Running ‘globals,formulas.R’ [1s/4s]
Running ‘globals,manual.R’ [1s/3s]
Running ‘globals,nested.R’ [1s/2s]
Running ‘globals,subassignment.R’ [1s/3s]
Running ‘globals,tricky.R’ [1s/4s]
Running ‘mirai_cluster,worker-termination.R’ [1s/3s]
Running ‘mirai_cluster.R’ [1s/4s]
Running ‘nbrOfWorkers.R’ [1s/3s]
Running ‘plan.R’ [1s/3s]
Running ‘rng.R’ [1s/3s]
Running ‘stdout.R’ [1s/4s]
Running ‘zzz,future_lapply.R’ [28s/37s]
Running the tests in ‘tests/mirai_cluster,worker-termination.R’ failed.
Complete output:
> source("incl/start.R")
Loading required package: future
[14:40:51.574] plan(): Setting new future strategy stack:
[14:40:51.575] List of future strategies:
[14:40:51.575] 1. mirai_multisession:
[14:40:51.575] - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
[14:40:51.575] - tweaked: FALSE
[14:40:51.575] - call: future::plan(future.mirai::mirai_multisession)
[14:40:51.613] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
[14:40:51.613] < mirai | $data >
[14:40:51.643] getGlobalsAndPackages() ...
[14:40:51.643] Not searching for globals
[14:40:51.644] - globals: [0] <none>
[14:40:51.644] getGlobalsAndPackages() ... DONE
[14:40:51.653] getGlobalsAndPackages() ...
[14:40:51.653]
[14:40:51.654] - globals: [0] <none>
[14:40:51.654] getGlobalsAndPackages() ... DONE
[14:40:52.803] Packages needed by the future expression (n = 0): <none>
[14:40:52.804] Packages needed by future strategies (n = 0): <none>
[14:40:52.807] {
[14:40:52.807] {
[14:40:52.807] {
[14:40:52.807] ...future.startTime <- base::Sys.time()
[14:40:52.807] {
[14:40:52.807] {
[14:40:52.807] {
[14:40:52.807] base::local({
[14:40:52.807] has_future <- base::requireNamespace("future",
[14:40:52.807] quietly = TRUE)
[14:40:52.807] if (has_future) {
[14:40:52.807] ns <- base::getNamespace("future")
[14:40:52.807] version <- ns[[".package"]][["version"]]
[14:40:52.807] if (is.null(version))
[14:40:52.807] version <- utils::packageVersion("future")
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] version <- NULL
[14:40:52.807] }
[14:40:52.807] if (!has_future || version < "1.8.0") {
[14:40:52.807] info <- base::c(r_version = base::gsub("R version ",
[14:40:52.807] "", base::R.version$version.string),
[14:40:52.807] platform = base::sprintf("%s (%s-bit)",
[14:40:52.807] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[14:40:52.807] os = base::paste(base::Sys.info()[base::c("sysname",
[14:40:52.807] "release", "version")], collapse = " "),
[14:40:52.807] hostname = base::Sys.info()[["nodename"]])
[14:40:52.807] info <- base::sprintf("%s: %s", base::names(info),
[14:40:52.807] info)
[14:40:52.807] info <- base::paste(info, collapse = "; ")
[14:40:52.807] if (!has_future) {
[14:40:52.807] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[14:40:52.807] info)
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[14:40:52.807] info, version)
[14:40:52.807] }
[14:40:52.807] base::stop(msg)
[14:40:52.807] }
[14:40:52.807] })
[14:40:52.807] }
[14:40:52.807] ...future.strategy.old <- future::plan("list")
[14:40:52.807] options(future.plan = NULL)
[14:40:52.807] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:52.807] future::plan("default", .cleanup = FALSE, .init = FALSE)
[14:40:52.807] }
[14:40:52.807] ...future.workdir <- getwd()
[14:40:52.807] }
[14:40:52.807] ...future.oldOptions <- base::as.list(base::.Options)
[14:40:52.807] ...future.oldEnvVars <- base::Sys.getenv()
[14:40:52.807] }
[14:40:52.807] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[14:40:52.807] future.globals.maxSize = NULL, future.globals.method = NULL,
[14:40:52.807] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[14:40:52.807] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[14:40:52.807] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[14:40:52.807] future.stdout.windows.reencode = NULL, width = 80L)
[14:40:52.807] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[14:40:52.807] base::names(...future.oldOptions))
[14:40:52.807] }
[14:40:52.807] if (FALSE) {
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] if (TRUE) {
[14:40:52.807] ...future.stdout <- base::rawConnection(base::raw(0L),
[14:40:52.807] open = "w")
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[14:40:52.807] windows = "NUL", "/dev/null"), open = "w")
[14:40:52.807] }
[14:40:52.807] base::sink(...future.stdout, type = "output", split = FALSE)
[14:40:52.807] base::on.exit(if (!base::is.null(...future.stdout)) {
[14:40:52.807] base::sink(type = "output", split = FALSE)
[14:40:52.807] base::close(...future.stdout)
[14:40:52.807] }, add = TRUE)
[14:40:52.807] }
[14:40:52.807] ...future.frame <- base::sys.nframe()
[14:40:52.807] ...future.conditions <- base::list()
[14:40:52.807] ...future.rng <- base::globalenv()$.Random.seed
[14:40:52.807] if (FALSE) {
[14:40:52.807] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[14:40:52.807] "...future.value", "...future.globalenv.names", ".Random.seed")
[14:40:52.807] }
[14:40:52.807] ...future.result <- base::tryCatch({
[14:40:52.807] base::withCallingHandlers({
[14:40:52.807] ...future.value <- base::withVisible(base::local(NA))
[14:40:52.807] future::FutureResult(value = ...future.value$value,
[14:40:52.807] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[14:40:52.807] ...future.rng), globalenv = if (FALSE)
[14:40:52.807] list(added = base::setdiff(base::names(base::.GlobalEnv),
[14:40:52.807] ...future.globalenv.names))
[14:40:52.807] else NULL, started = ...future.startTime, version = "1.8")
[14:40:52.807] }, condition = base::local({
[14:40:52.807] c <- base::c
[14:40:52.807] inherits <- base::inherits
[14:40:52.807] invokeRestart <- base::invokeRestart
[14:40:52.807] length <- base::length
[14:40:52.807] list <- base::list
[14:40:52.807] seq.int <- base::seq.int
[14:40:52.807] signalCondition <- base::signalCondition
[14:40:52.807] sys.calls <- base::sys.calls
[14:40:52.807] `[[` <- base::`[[`
[14:40:52.807] `+` <- base::`+`
[14:40:52.807] `<<-` <- base::`<<-`
[14:40:52.807] sysCalls <- function(calls = sys.calls(), from = 1L) {
[14:40:52.807] calls[seq.int(from = from + 12L, to = length(calls) -
[14:40:52.807] 3L)]
[14:40:52.807] }
[14:40:52.807] function(cond) {
[14:40:52.807] is_error <- inherits(cond, "error")
[14:40:52.807] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[14:40:52.807] NULL)
[14:40:52.807] if (is_error) {
[14:40:52.807] sessionInformation <- function() {
[14:40:52.807] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[14:40:52.807] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[14:40:52.807] search = base::search(), system = base::Sys.info())
[14:40:52.807] }
[14:40:52.807] ...future.conditions[[length(...future.conditions) +
[14:40:52.807] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[14:40:52.807] cond$call), session = sessionInformation(),
[14:40:52.807] timestamp = base::Sys.time(), signaled = 0L)
[14:40:52.807] signalCondition(cond)
[14:40:52.807] }
[14:40:52.807] else if (!ignore && TRUE && inherits(cond, "condition")) {
[14:40:52.807] signal <- FALSE && inherits(cond, character(0))
[14:40:52.807] ...future.conditions[[length(...future.conditions) +
[14:40:52.807] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[14:40:52.807] if (FALSE && !signal) {
[14:40:52.807] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:52.807] {
[14:40:52.807] inherits <- base::inherits
[14:40:52.807] invokeRestart <- base::invokeRestart
[14:40:52.807] is.null <- base::is.null
[14:40:52.807] muffled <- FALSE
[14:40:52.807] if (inherits(cond, "message")) {
[14:40:52.807] muffled <- grepl(pattern, "muffleMessage")
[14:40:52.807] if (muffled)
[14:40:52.807] invokeRestart("muffleMessage")
[14:40:52.807] }
[14:40:52.807] else if (inherits(cond, "warning")) {
[14:40:52.807] muffled <- grepl(pattern, "muffleWarning")
[14:40:52.807] if (muffled)
[14:40:52.807] invokeRestart("muffleWarning")
[14:40:52.807] }
[14:40:52.807] else if (inherits(cond, "condition")) {
[14:40:52.807] if (!is.null(pattern)) {
[14:40:52.807] computeRestarts <- base::computeRestarts
[14:40:52.807] grepl <- base::grepl
[14:40:52.807] restarts <- computeRestarts(cond)
[14:40:52.807] for (restart in restarts) {
[14:40:52.807] name <- restart$name
[14:40:52.807] if (is.null(name))
[14:40:52.807] next
[14:40:52.807] if (!grepl(pattern, name))
[14:40:52.807] next
[14:40:52.807] invokeRestart(restart)
[14:40:52.807] muffled <- TRUE
[14:40:52.807] break
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] invisible(muffled)
[14:40:52.807] }
[14:40:52.807] muffleCondition(cond, pattern = "^muffle")
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] if (TRUE) {
[14:40:52.807] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:52.807] {
[14:40:52.807] inherits <- base::inherits
[14:40:52.807] invokeRestart <- base::invokeRestart
[14:40:52.807] is.null <- base::is.null
[14:40:52.807] muffled <- FALSE
[14:40:52.807] if (inherits(cond, "message")) {
[14:40:52.807] muffled <- grepl(pattern, "muffleMessage")
[14:40:52.807] if (muffled)
[14:40:52.807] invokeRestart("muffleMessage")
[14:40:52.807] }
[14:40:52.807] else if (inherits(cond, "warning")) {
[14:40:52.807] muffled <- grepl(pattern, "muffleWarning")
[14:40:52.807] if (muffled)
[14:40:52.807] invokeRestart("muffleWarning")
[14:40:52.807] }
[14:40:52.807] else if (inherits(cond, "condition")) {
[14:40:52.807] if (!is.null(pattern)) {
[14:40:52.807] computeRestarts <- base::computeRestarts
[14:40:52.807] grepl <- base::grepl
[14:40:52.807] restarts <- computeRestarts(cond)
[14:40:52.807] for (restart in restarts) {
[14:40:52.807] name <- restart$name
[14:40:52.807] if (is.null(name))
[14:40:52.807] next
[14:40:52.807] if (!grepl(pattern, name))
[14:40:52.807] next
[14:40:52.807] invokeRestart(restart)
[14:40:52.807] muffled <- TRUE
[14:40:52.807] break
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] invisible(muffled)
[14:40:52.807] }
[14:40:52.807] muffleCondition(cond, pattern = "^muffle")
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] }))
[14:40:52.807] }, error = function(ex) {
[14:40:52.807] base::structure(base::list(value = NULL, visible = NULL,
[14:40:52.807] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[14:40:52.807] ...future.rng), started = ...future.startTime,
[14:40:52.807] finished = Sys.time(), session_uuid = NA_character_,
[14:40:52.807] version = "1.8"), class = "FutureResult")
[14:40:52.807] }, finally = {
[14:40:52.807] if (!identical(...future.workdir, getwd()))
[14:40:52.807] setwd(...future.workdir)
[14:40:52.807] {
[14:40:52.807] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[14:40:52.807] ...future.oldOptions$nwarnings <- NULL
[14:40:52.807] }
[14:40:52.807] base::options(...future.oldOptions)
[14:40:52.807] if (.Platform$OS.type == "windows") {
[14:40:52.807] old_names <- names(...future.oldEnvVars)
[14:40:52.807] envs <- base::Sys.getenv()
[14:40:52.807] names <- names(envs)
[14:40:52.807] common <- intersect(names, old_names)
[14:40:52.807] added <- setdiff(names, old_names)
[14:40:52.807] removed <- setdiff(old_names, names)
[14:40:52.807] changed <- common[...future.oldEnvVars[common] !=
[14:40:52.807] envs[common]]
[14:40:52.807] NAMES <- toupper(changed)
[14:40:52.807] args <- list()
[14:40:52.807] for (kk in seq_along(NAMES)) {
[14:40:52.807] name <- changed[[kk]]
[14:40:52.807] NAME <- NAMES[[kk]]
[14:40:52.807] if (name != NAME && is.element(NAME, old_names))
[14:40:52.807] next
[14:40:52.807] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:52.807] }
[14:40:52.807] NAMES <- toupper(added)
[14:40:52.807] for (kk in seq_along(NAMES)) {
[14:40:52.807] name <- added[[kk]]
[14:40:52.807] NAME <- NAMES[[kk]]
[14:40:52.807] if (name != NAME && is.element(NAME, old_names))
[14:40:52.807] next
[14:40:52.807] args[[name]] <- ""
[14:40:52.807] }
[14:40:52.807] NAMES <- toupper(removed)
[14:40:52.807] for (kk in seq_along(NAMES)) {
[14:40:52.807] name <- removed[[kk]]
[14:40:52.807] NAME <- NAMES[[kk]]
[14:40:52.807] if (name != NAME && is.element(NAME, old_names))
[14:40:52.807] next
[14:40:52.807] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:52.807] }
[14:40:52.807] if (length(args) > 0)
[14:40:52.807] base::do.call(base::Sys.setenv, args = args)
[14:40:52.807] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[14:40:52.807] }
[14:40:52.807] {
[14:40:52.807] if (base::length(...future.futureOptionsAdded) >
[14:40:52.807] 0L) {
[14:40:52.807] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[14:40:52.807] base::names(opts) <- ...future.futureOptionsAdded
[14:40:52.807] base::options(opts)
[14:40:52.807] }
[14:40:52.807] {
[14:40:52.807] NULL
[14:40:52.807] options(future.plan = NULL)
[14:40:52.807] if (is.na(NA_character_))
[14:40:52.807] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:52.807] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[14:40:52.807] future::plan(...future.strategy.old, .cleanup = FALSE,
[14:40:52.807] .init = FALSE)
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] }
[14:40:52.807] })
[14:40:52.807] if (TRUE) {
[14:40:52.807] base::sink(type = "output", split = FALSE)
[14:40:52.807] if (TRUE) {
[14:40:52.807] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[14:40:52.807] }
[14:40:52.807] else {
[14:40:52.807] ...future.result["stdout"] <- base::list(NULL)
[14:40:52.807] }
[14:40:52.807] base::close(...future.stdout)
[14:40:52.807] ...future.stdout <- NULL
[14:40:52.807] }
[14:40:52.807] ...future.result$conditions <- ...future.conditions
[14:40:52.807] ...future.result$finished <- base::Sys.time()
[14:40:52.807] ...future.result
[14:40:52.807] }
[14:40:53.102] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE
[14:40:53.102] plan(): nbrOfWorkers() = 2
>
> message("*** mirai_multisession() - terminating workers ...")
*** mirai_multisession() - terminating workers ...
>
> plan(mirai_multisession, workers = 2L)
[14:40:53.105] plan(): Setting new future strategy stack:
[14:40:53.106] List of future strategies:
[14:40:53.106] 1. mirai_multisession:
[14:40:53.106] - args: function (..., workers = 2L, envir = parent.frame())
[14:40:53.106] - tweaked: TRUE
[14:40:53.106] - call: plan(mirai_multisession, workers = 2L)
[14:40:53.146] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
[14:40:53.147] < mirai | $data >
[14:40:53.148] getGlobalsAndPackages() ...
[14:40:53.148] Not searching for globals
[14:40:53.148] - globals: [0] <none>
[14:40:53.149] getGlobalsAndPackages() ... DONE
[14:40:53.149] getGlobalsAndPackages() ...
[14:40:53.149]
[14:40:53.149] - globals: [0] <none>
[14:40:53.150] getGlobalsAndPackages() ... DONE
[14:40:53.151] Packages needed by the future expression (n = 0): <none>
[14:40:53.151] Packages needed by future strategies (n = 0): <none>
[14:40:53.152] {
[14:40:53.152] {
[14:40:53.152] {
[14:40:53.152] ...future.startTime <- base::Sys.time()
[14:40:53.152] {
[14:40:53.152] {
[14:40:53.152] {
[14:40:53.152] base::local({
[14:40:53.152] has_future <- base::requireNamespace("future",
[14:40:53.152] quietly = TRUE)
[14:40:53.152] if (has_future) {
[14:40:53.152] ns <- base::getNamespace("future")
[14:40:53.152] version <- ns[[".package"]][["version"]]
[14:40:53.152] if (is.null(version))
[14:40:53.152] version <- utils::packageVersion("future")
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] version <- NULL
[14:40:53.152] }
[14:40:53.152] if (!has_future || version < "1.8.0") {
[14:40:53.152] info <- base::c(r_version = base::gsub("R version ",
[14:40:53.152] "", base::R.version$version.string),
[14:40:53.152] platform = base::sprintf("%s (%s-bit)",
[14:40:53.152] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[14:40:53.152] os = base::paste(base::Sys.info()[base::c("sysname",
[14:40:53.152] "release", "version")], collapse = " "),
[14:40:53.152] hostname = base::Sys.info()[["nodename"]])
[14:40:53.152] info <- base::sprintf("%s: %s", base::names(info),
[14:40:53.152] info)
[14:40:53.152] info <- base::paste(info, collapse = "; ")
[14:40:53.152] if (!has_future) {
[14:40:53.152] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[14:40:53.152] info)
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[14:40:53.152] info, version)
[14:40:53.152] }
[14:40:53.152] base::stop(msg)
[14:40:53.152] }
[14:40:53.152] })
[14:40:53.152] }
[14:40:53.152] ...future.strategy.old <- future::plan("list")
[14:40:53.152] options(future.plan = NULL)
[14:40:53.152] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:53.152] future::plan("default", .cleanup = FALSE, .init = FALSE)
[14:40:53.152] }
[14:40:53.152] ...future.workdir <- getwd()
[14:40:53.152] }
[14:40:53.152] ...future.oldOptions <- base::as.list(base::.Options)
[14:40:53.152] ...future.oldEnvVars <- base::Sys.getenv()
[14:40:53.152] }
[14:40:53.152] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[14:40:53.152] future.globals.maxSize = NULL, future.globals.method = NULL,
[14:40:53.152] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[14:40:53.152] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[14:40:53.152] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[14:40:53.152] future.stdout.windows.reencode = NULL, width = 80L)
[14:40:53.152] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[14:40:53.152] base::names(...future.oldOptions))
[14:40:53.152] }
[14:40:53.152] if (FALSE) {
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] if (TRUE) {
[14:40:53.152] ...future.stdout <- base::rawConnection(base::raw(0L),
[14:40:53.152] open = "w")
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[14:40:53.152] windows = "NUL", "/dev/null"), open = "w")
[14:40:53.152] }
[14:40:53.152] base::sink(...future.stdout, type = "output", split = FALSE)
[14:40:53.152] base::on.exit(if (!base::is.null(...future.stdout)) {
[14:40:53.152] base::sink(type = "output", split = FALSE)
[14:40:53.152] base::close(...future.stdout)
[14:40:53.152] }, add = TRUE)
[14:40:53.152] }
[14:40:53.152] ...future.frame <- base::sys.nframe()
[14:40:53.152] ...future.conditions <- base::list()
[14:40:53.152] ...future.rng <- base::globalenv()$.Random.seed
[14:40:53.152] if (FALSE) {
[14:40:53.152] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[14:40:53.152] "...future.value", "...future.globalenv.names", ".Random.seed")
[14:40:53.152] }
[14:40:53.152] ...future.result <- base::tryCatch({
[14:40:53.152] base::withCallingHandlers({
[14:40:53.152] ...future.value <- base::withVisible(base::local(NA))
[14:40:53.152] future::FutureResult(value = ...future.value$value,
[14:40:53.152] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[14:40:53.152] ...future.rng), globalenv = if (FALSE)
[14:40:53.152] list(added = base::setdiff(base::names(base::.GlobalEnv),
[14:40:53.152] ...future.globalenv.names))
[14:40:53.152] else NULL, started = ...future.startTime, version = "1.8")
[14:40:53.152] }, condition = base::local({
[14:40:53.152] c <- base::c
[14:40:53.152] inherits <- base::inherits
[14:40:53.152] invokeRestart <- base::invokeRestart
[14:40:53.152] length <- base::length
[14:40:53.152] list <- base::list
[14:40:53.152] seq.int <- base::seq.int
[14:40:53.152] signalCondition <- base::signalCondition
[14:40:53.152] sys.calls <- base::sys.calls
[14:40:53.152] `[[` <- base::`[[`
[14:40:53.152] `+` <- base::`+`
[14:40:53.152] `<<-` <- base::`<<-`
[14:40:53.152] sysCalls <- function(calls = sys.calls(), from = 1L) {
[14:40:53.152] calls[seq.int(from = from + 12L, to = length(calls) -
[14:40:53.152] 3L)]
[14:40:53.152] }
[14:40:53.152] function(cond) {
[14:40:53.152] is_error <- inherits(cond, "error")
[14:40:53.152] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[14:40:53.152] NULL)
[14:40:53.152] if (is_error) {
[14:40:53.152] sessionInformation <- function() {
[14:40:53.152] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[14:40:53.152] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[14:40:53.152] search = base::search(), system = base::Sys.info())
[14:40:53.152] }
[14:40:53.152] ...future.conditions[[length(...future.conditions) +
[14:40:53.152] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[14:40:53.152] cond$call), session = sessionInformation(),
[14:40:53.152] timestamp = base::Sys.time(), signaled = 0L)
[14:40:53.152] signalCondition(cond)
[14:40:53.152] }
[14:40:53.152] else if (!ignore && TRUE && inherits(cond, "condition")) {
[14:40:53.152] signal <- FALSE && inherits(cond, character(0))
[14:40:53.152] ...future.conditions[[length(...future.conditions) +
[14:40:53.152] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[14:40:53.152] if (FALSE && !signal) {
[14:40:53.152] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:53.152] {
[14:40:53.152] inherits <- base::inherits
[14:40:53.152] invokeRestart <- base::invokeRestart
[14:40:53.152] is.null <- base::is.null
[14:40:53.152] muffled <- FALSE
[14:40:53.152] if (inherits(cond, "message")) {
[14:40:53.152] muffled <- grepl(pattern, "muffleMessage")
[14:40:53.152] if (muffled)
[14:40:53.152] invokeRestart("muffleMessage")
[14:40:53.152] }
[14:40:53.152] else if (inherits(cond, "warning")) {
[14:40:53.152] muffled <- grepl(pattern, "muffleWarning")
[14:40:53.152] if (muffled)
[14:40:53.152] invokeRestart("muffleWarning")
[14:40:53.152] }
[14:40:53.152] else if (inherits(cond, "condition")) {
[14:40:53.152] if (!is.null(pattern)) {
[14:40:53.152] computeRestarts <- base::computeRestarts
[14:40:53.152] grepl <- base::grepl
[14:40:53.152] restarts <- computeRestarts(cond)
[14:40:53.152] for (restart in restarts) {
[14:40:53.152] name <- restart$name
[14:40:53.152] if (is.null(name))
[14:40:53.152] next
[14:40:53.152] if (!grepl(pattern, name))
[14:40:53.152] next
[14:40:53.152] invokeRestart(restart)
[14:40:53.152] muffled <- TRUE
[14:40:53.152] break
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] invisible(muffled)
[14:40:53.152] }
[14:40:53.152] muffleCondition(cond, pattern = "^muffle")
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] if (TRUE) {
[14:40:53.152] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:53.152] {
[14:40:53.152] inherits <- base::inherits
[14:40:53.152] invokeRestart <- base::invokeRestart
[14:40:53.152] is.null <- base::is.null
[14:40:53.152] muffled <- FALSE
[14:40:53.152] if (inherits(cond, "message")) {
[14:40:53.152] muffled <- grepl(pattern, "muffleMessage")
[14:40:53.152] if (muffled)
[14:40:53.152] invokeRestart("muffleMessage")
[14:40:53.152] }
[14:40:53.152] else if (inherits(cond, "warning")) {
[14:40:53.152] muffled <- grepl(pattern, "muffleWarning")
[14:40:53.152] if (muffled)
[14:40:53.152] invokeRestart("muffleWarning")
[14:40:53.152] }
[14:40:53.152] else if (inherits(cond, "condition")) {
[14:40:53.152] if (!is.null(pattern)) {
[14:40:53.152] computeRestarts <- base::computeRestarts
[14:40:53.152] grepl <- base::grepl
[14:40:53.152] restarts <- computeRestarts(cond)
[14:40:53.152] for (restart in restarts) {
[14:40:53.152] name <- restart$name
[14:40:53.152] if (is.null(name))
[14:40:53.152] next
[14:40:53.152] if (!grepl(pattern, name))
[14:40:53.152] next
[14:40:53.152] invokeRestart(restart)
[14:40:53.152] muffled <- TRUE
[14:40:53.152] break
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] invisible(muffled)
[14:40:53.152] }
[14:40:53.152] muffleCondition(cond, pattern = "^muffle")
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] }))
[14:40:53.152] }, error = function(ex) {
[14:40:53.152] base::structure(base::list(value = NULL, visible = NULL,
[14:40:53.152] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[14:40:53.152] ...future.rng), started = ...future.startTime,
[14:40:53.152] finished = Sys.time(), session_uuid = NA_character_,
[14:40:53.152] version = "1.8"), class = "FutureResult")
[14:40:53.152] }, finally = {
[14:40:53.152] if (!identical(...future.workdir, getwd()))
[14:40:53.152] setwd(...future.workdir)
[14:40:53.152] {
[14:40:53.152] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[14:40:53.152] ...future.oldOptions$nwarnings <- NULL
[14:40:53.152] }
[14:40:53.152] base::options(...future.oldOptions)
[14:40:53.152] if (.Platform$OS.type == "windows") {
[14:40:53.152] old_names <- names(...future.oldEnvVars)
[14:40:53.152] envs <- base::Sys.getenv()
[14:40:53.152] names <- names(envs)
[14:40:53.152] common <- intersect(names, old_names)
[14:40:53.152] added <- setdiff(names, old_names)
[14:40:53.152] removed <- setdiff(old_names, names)
[14:40:53.152] changed <- common[...future.oldEnvVars[common] !=
[14:40:53.152] envs[common]]
[14:40:53.152] NAMES <- toupper(changed)
[14:40:53.152] args <- list()
[14:40:53.152] for (kk in seq_along(NAMES)) {
[14:40:53.152] name <- changed[[kk]]
[14:40:53.152] NAME <- NAMES[[kk]]
[14:40:53.152] if (name != NAME && is.element(NAME, old_names))
[14:40:53.152] next
[14:40:53.152] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:53.152] }
[14:40:53.152] NAMES <- toupper(added)
[14:40:53.152] for (kk in seq_along(NAMES)) {
[14:40:53.152] name <- added[[kk]]
[14:40:53.152] NAME <- NAMES[[kk]]
[14:40:53.152] if (name != NAME && is.element(NAME, old_names))
[14:40:53.152] next
[14:40:53.152] args[[name]] <- ""
[14:40:53.152] }
[14:40:53.152] NAMES <- toupper(removed)
[14:40:53.152] for (kk in seq_along(NAMES)) {
[14:40:53.152] name <- removed[[kk]]
[14:40:53.152] NAME <- NAMES[[kk]]
[14:40:53.152] if (name != NAME && is.element(NAME, old_names))
[14:40:53.152] next
[14:40:53.152] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:53.152] }
[14:40:53.152] if (length(args) > 0)
[14:40:53.152] base::do.call(base::Sys.setenv, args = args)
[14:40:53.152] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[14:40:53.152] }
[14:40:53.152] {
[14:40:53.152] if (base::length(...future.futureOptionsAdded) >
[14:40:53.152] 0L) {
[14:40:53.152] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[14:40:53.152] base::names(opts) <- ...future.futureOptionsAdded
[14:40:53.152] base::options(opts)
[14:40:53.152] }
[14:40:53.152] {
[14:40:53.152] NULL
[14:40:53.152] options(future.plan = NULL)
[14:40:53.152] if (is.na(NA_character_))
[14:40:53.152] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:53.152] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[14:40:53.152] future::plan(...future.strategy.old, .cleanup = FALSE,
[14:40:53.152] .init = FALSE)
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] }
[14:40:53.152] })
[14:40:53.152] if (TRUE) {
[14:40:53.152] base::sink(type = "output", split = FALSE)
[14:40:53.152] if (TRUE) {
[14:40:53.152] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[14:40:53.152] }
[14:40:53.152] else {
[14:40:53.152] ...future.result["stdout"] <- base::list(NULL)
[14:40:53.152] }
[14:40:53.152] base::close(...future.stdout)
[14:40:53.152] ...future.stdout <- NULL
[14:40:53.152] }
[14:40:53.152] ...future.result$conditions <- ...future.conditions
[14:40:53.152] ...future.result$finished <- base::Sys.time()
[14:40:53.152] ...future.result
[14:40:53.152] }
[14:40:53.537] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE
[14:40:53.538] 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
+ )
+ }
[14:40:53.540] getGlobalsAndPackages() ...
[14:40:53.540] Searching for globals...
[14:40:53.572] - globals found: [3] '{', '::', 'Sys.getpid'
[14:40:53.572] Searching for globals ... DONE
[14:40:53.573] Resolving globals: FALSE
[14:40:53.578]
[14:40:53.579]
[14:40:53.579] getGlobalsAndPackages() ... DONE
[14:40:53.580] run() for 'Future' ...
[14:40:53.580] - state: 'created'
[14:40:53.585] - Future backend: 'FutureStrategy', 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function'
[14:40:53.586] - Future class: 'MiraiFuture', 'MultiprocessFuture', 'Future', 'environment'
[14:40:53.587] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ...
[14:40:53.587] - Field: 'label'
[14:40:53.587] - Field: 'local'
[14:40:53.587] - Field: 'owner'
[14:40:53.588] - Field: 'envir'
[14:40:53.588] - Field: 'packages'
[14:40:53.588] - Field: 'gc'
[14:40:53.589] - Field: 'conditions'
[14:40:53.589] - Field: 'expr'
[14:40:53.589] - Field: 'uuid'
[14:40:53.590] - Field: 'seed'
[14:40:53.590] - Field: 'version'
[14:40:53.590] - Field: 'result'
[14:40:53.591] - Field: 'asynchronous'
[14:40:53.591] - Field: 'calls'
[14:40:53.591] - Field: 'globals'
[14:40:53.591] - Field: 'stdout'
[14:40:53.592] - Field: 'earlySignal'
[14:40:53.592] - Field: 'lazy'
[14:40:53.592] - Field: 'state'
[14:40:53.593] - Field: '.cluster'
[14:40:53.593] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ... done
[14:40:53.595] - Launch lazy future ...
[14:40:53.596] Packages needed by the future expression (n = 0): <none>
[14:40:53.596] Packages needed by future strategies (n = 0): <none>
[14:40:53.598] {
[14:40:53.598] {
[14:40:53.598] {
[14:40:53.598] ...future.startTime <- base::Sys.time()
[14:40:53.598] {
[14:40:53.598] {
[14:40:53.598] {
[14:40:53.598] base::local({
[14:40:53.598] has_future <- base::requireNamespace("future",
[14:40:53.598] quietly = TRUE)
[14:40:53.598] if (has_future) {
[14:40:53.598] ns <- base::getNamespace("future")
[14:40:53.598] version <- ns[[".package"]][["version"]]
[14:40:53.598] if (is.null(version))
[14:40:53.598] version <- utils::packageVersion("future")
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] version <- NULL
[14:40:53.598] }
[14:40:53.598] if (!has_future || version < "1.8.0") {
[14:40:53.598] info <- base::c(r_version = base::gsub("R version ",
[14:40:53.598] "", base::R.version$version.string),
[14:40:53.598] platform = base::sprintf("%s (%s-bit)",
[14:40:53.598] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[14:40:53.598] os = base::paste(base::Sys.info()[base::c("sysname",
[14:40:53.598] "release", "version")], collapse = " "),
[14:40:53.598] hostname = base::Sys.info()[["nodename"]])
[14:40:53.598] info <- base::sprintf("%s: %s", base::names(info),
[14:40:53.598] info)
[14:40:53.598] info <- base::paste(info, collapse = "; ")
[14:40:53.598] if (!has_future) {
[14:40:53.598] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[14:40:53.598] info)
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[14:40:53.598] info, version)
[14:40:53.598] }
[14:40:53.598] base::stop(msg)
[14:40:53.598] }
[14:40:53.598] })
[14:40:53.598] }
[14:40:53.598] ...future.strategy.old <- future::plan("list")
[14:40:53.598] options(future.plan = NULL)
[14:40:53.598] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:53.598] future::plan("default", .cleanup = FALSE, .init = FALSE)
[14:40:53.598] }
[14:40:53.598] ...future.workdir <- getwd()
[14:40:53.598] }
[14:40:53.598] ...future.oldOptions <- base::as.list(base::.Options)
[14:40:53.598] ...future.oldEnvVars <- base::Sys.getenv()
[14:40:53.598] }
[14:40:53.598] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[14:40:53.598] future.globals.maxSize = NULL, future.globals.method = NULL,
[14:40:53.598] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[14:40:53.598] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[14:40:53.598] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[14:40:53.598] future.stdout.windows.reencode = NULL, width = 80L)
[14:40:53.598] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[14:40:53.598] base::names(...future.oldOptions))
[14:40:53.598] }
[14:40:53.598] if (FALSE) {
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] if (TRUE) {
[14:40:53.598] ...future.stdout <- base::rawConnection(base::raw(0L),
[14:40:53.598] open = "w")
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[14:40:53.598] windows = "NUL", "/dev/null"), open = "w")
[14:40:53.598] }
[14:40:53.598] base::sink(...future.stdout, type = "output", split = FALSE)
[14:40:53.598] base::on.exit(if (!base::is.null(...future.stdout)) {
[14:40:53.598] base::sink(type = "output", split = FALSE)
[14:40:53.598] base::close(...future.stdout)
[14:40:53.598] }, add = TRUE)
[14:40:53.598] }
[14:40:53.598] ...future.frame <- base::sys.nframe()
[14:40:53.598] ...future.conditions <- base::list()
[14:40:53.598] ...future.rng <- base::globalenv()$.Random.seed
[14:40:53.598] if (FALSE) {
[14:40:53.598] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[14:40:53.598] "...future.value", "...future.globalenv.names", ".Random.seed")
[14:40:53.598] }
[14:40:53.598] ...future.result <- base::tryCatch({
[14:40:53.598] base::withCallingHandlers({
[14:40:53.598] ...future.value <- base::withVisible(base::local({
[14:40:53.598] tools::pskill(pid = Sys.getpid())
[14:40:53.598] }))
[14:40:53.598] future::FutureResult(value = ...future.value$value,
[14:40:53.598] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[14:40:53.598] ...future.rng), globalenv = if (FALSE)
[14:40:53.598] list(added = base::setdiff(base::names(base::.GlobalEnv),
[14:40:53.598] ...future.globalenv.names))
[14:40:53.598] else NULL, started = ...future.startTime, version = "1.8")
[14:40:53.598] }, condition = base::local({
[14:40:53.598] c <- base::c
[14:40:53.598] inherits <- base::inherits
[14:40:53.598] invokeRestart <- base::invokeRestart
[14:40:53.598] length <- base::length
[14:40:53.598] list <- base::list
[14:40:53.598] seq.int <- base::seq.int
[14:40:53.598] signalCondition <- base::signalCondition
[14:40:53.598] sys.calls <- base::sys.calls
[14:40:53.598] `[[` <- base::`[[`
[14:40:53.598] `+` <- base::`+`
[14:40:53.598] `<<-` <- base::`<<-`
[14:40:53.598] sysCalls <- function(calls = sys.calls(), from = 1L) {
[14:40:53.598] calls[seq.int(from = from + 12L, to = length(calls) -
[14:40:53.598] 3L)]
[14:40:53.598] }
[14:40:53.598] function(cond) {
[14:40:53.598] is_error <- inherits(cond, "error")
[14:40:53.598] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[14:40:53.598] NULL)
[14:40:53.598] if (is_error) {
[14:40:53.598] sessionInformation <- function() {
[14:40:53.598] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[14:40:53.598] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[14:40:53.598] search = base::search(), system = base::Sys.info())
[14:40:53.598] }
[14:40:53.598] ...future.conditions[[length(...future.conditions) +
[14:40:53.598] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[14:40:53.598] cond$call), session = sessionInformation(),
[14:40:53.598] timestamp = base::Sys.time(), signaled = 0L)
[14:40:53.598] signalCondition(cond)
[14:40:53.598] }
[14:40:53.598] else if (!ignore && TRUE && inherits(cond, "condition")) {
[14:40:53.598] signal <- FALSE && inherits(cond, character(0))
[14:40:53.598] ...future.conditions[[length(...future.conditions) +
[14:40:53.598] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[14:40:53.598] if (FALSE && !signal) {
[14:40:53.598] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:53.598] {
[14:40:53.598] inherits <- base::inherits
[14:40:53.598] invokeRestart <- base::invokeRestart
[14:40:53.598] is.null <- base::is.null
[14:40:53.598] muffled <- FALSE
[14:40:53.598] if (inherits(cond, "message")) {
[14:40:53.598] muffled <- grepl(pattern, "muffleMessage")
[14:40:53.598] if (muffled)
[14:40:53.598] invokeRestart("muffleMessage")
[14:40:53.598] }
[14:40:53.598] else if (inherits(cond, "warning")) {
[14:40:53.598] muffled <- grepl(pattern, "muffleWarning")
[14:40:53.598] if (muffled)
[14:40:53.598] invokeRestart("muffleWarning")
[14:40:53.598] }
[14:40:53.598] else if (inherits(cond, "condition")) {
[14:40:53.598] if (!is.null(pattern)) {
[14:40:53.598] computeRestarts <- base::computeRestarts
[14:40:53.598] grepl <- base::grepl
[14:40:53.598] restarts <- computeRestarts(cond)
[14:40:53.598] for (restart in restarts) {
[14:40:53.598] name <- restart$name
[14:40:53.598] if (is.null(name))
[14:40:53.598] next
[14:40:53.598] if (!grepl(pattern, name))
[14:40:53.598] next
[14:40:53.598] invokeRestart(restart)
[14:40:53.598] muffled <- TRUE
[14:40:53.598] break
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] invisible(muffled)
[14:40:53.598] }
[14:40:53.598] muffleCondition(cond, pattern = "^muffle")
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] if (TRUE) {
[14:40:53.598] muffleCondition <- function (cond, pattern = "^muffle")
[14:40:53.598] {
[14:40:53.598] inherits <- base::inherits
[14:40:53.598] invokeRestart <- base::invokeRestart
[14:40:53.598] is.null <- base::is.null
[14:40:53.598] muffled <- FALSE
[14:40:53.598] if (inherits(cond, "message")) {
[14:40:53.598] muffled <- grepl(pattern, "muffleMessage")
[14:40:53.598] if (muffled)
[14:40:53.598] invokeRestart("muffleMessage")
[14:40:53.598] }
[14:40:53.598] else if (inherits(cond, "warning")) {
[14:40:53.598] muffled <- grepl(pattern, "muffleWarning")
[14:40:53.598] if (muffled)
[14:40:53.598] invokeRestart("muffleWarning")
[14:40:53.598] }
[14:40:53.598] else if (inherits(cond, "condition")) {
[14:40:53.598] if (!is.null(pattern)) {
[14:40:53.598] computeRestarts <- base::computeRestarts
[14:40:53.598] grepl <- base::grepl
[14:40:53.598] restarts <- computeRestarts(cond)
[14:40:53.598] for (restart in restarts) {
[14:40:53.598] name <- restart$name
[14:40:53.598] if (is.null(name))
[14:40:53.598] next
[14:40:53.598] if (!grepl(pattern, name))
[14:40:53.598] next
[14:40:53.598] invokeRestart(restart)
[14:40:53.598] muffled <- TRUE
[14:40:53.598] break
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] invisible(muffled)
[14:40:53.598] }
[14:40:53.598] muffleCondition(cond, pattern = "^muffle")
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] }))
[14:40:53.598] }, error = function(ex) {
[14:40:53.598] base::structure(base::list(value = NULL, visible = NULL,
[14:40:53.598] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[14:40:53.598] ...future.rng), started = ...future.startTime,
[14:40:53.598] finished = Sys.time(), session_uuid = NA_character_,
[14:40:53.598] version = "1.8"), class = "FutureResult")
[14:40:53.598] }, finally = {
[14:40:53.598] if (!identical(...future.workdir, getwd()))
[14:40:53.598] setwd(...future.workdir)
[14:40:53.598] {
[14:40:53.598] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[14:40:53.598] ...future.oldOptions$nwarnings <- NULL
[14:40:53.598] }
[14:40:53.598] base::options(...future.oldOptions)
[14:40:53.598] if (.Platform$OS.type == "windows") {
[14:40:53.598] old_names <- names(...future.oldEnvVars)
[14:40:53.598] envs <- base::Sys.getenv()
[14:40:53.598] names <- names(envs)
[14:40:53.598] common <- intersect(names, old_names)
[14:40:53.598] added <- setdiff(names, old_names)
[14:40:53.598] removed <- setdiff(old_names, names)
[14:40:53.598] changed <- common[...future.oldEnvVars[common] !=
[14:40:53.598] envs[common]]
[14:40:53.598] NAMES <- toupper(changed)
[14:40:53.598] args <- list()
[14:40:53.598] for (kk in seq_along(NAMES)) {
[14:40:53.598] name <- changed[[kk]]
[14:40:53.598] NAME <- NAMES[[kk]]
[14:40:53.598] if (name != NAME && is.element(NAME, old_names))
[14:40:53.598] next
[14:40:53.598] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:53.598] }
[14:40:53.598] NAMES <- toupper(added)
[14:40:53.598] for (kk in seq_along(NAMES)) {
[14:40:53.598] name <- added[[kk]]
[14:40:53.598] NAME <- NAMES[[kk]]
[14:40:53.598] if (name != NAME && is.element(NAME, old_names))
[14:40:53.598] next
[14:40:53.598] args[[name]] <- ""
[14:40:53.598] }
[14:40:53.598] NAMES <- toupper(removed)
[14:40:53.598] for (kk in seq_along(NAMES)) {
[14:40:53.598] name <- removed[[kk]]
[14:40:53.598] NAME <- NAMES[[kk]]
[14:40:53.598] if (name != NAME && is.element(NAME, old_names))
[14:40:53.598] next
[14:40:53.598] args[[name]] <- ...future.oldEnvVars[[name]]
[14:40:53.598] }
[14:40:53.598] if (length(args) > 0)
[14:40:53.598] base::do.call(base::Sys.setenv, args = args)
[14:40:53.598] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[14:40:53.598] }
[14:40:53.598] {
[14:40:53.598] if (base::length(...future.futureOptionsAdded) >
[14:40:53.598] 0L) {
[14:40:53.598] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[14:40:53.598] base::names(opts) <- ...future.futureOptionsAdded
[14:40:53.598] base::options(opts)
[14:40:53.598] }
[14:40:53.598] {
[14:40:53.598] NULL
[14:40:53.598] options(future.plan = NULL)
[14:40:53.598] if (is.na(NA_character_))
[14:40:53.598] Sys.unsetenv("R_FUTURE_PLAN")
[14:40:53.598] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[14:40:53.598] future::plan(...future.strategy.old, .cleanup = FALSE,
[14:40:53.598] .init = FALSE)
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] }
[14:40:53.598] })
[14:40:53.598] if (TRUE) {
[14:40:53.598] base::sink(type = "output", split = FALSE)
[14:40:53.598] if (TRUE) {
[14:40:53.598] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[14:40:53.598] }
[14:40:53.598] else {
[14:40:53.598] ...future.result["stdout"] <- base::list(NULL)
[14:40:53.598] }
[14:40:53.598] base::close(...future.stdout)
[14:40:53.598] ...future.stdout <- NULL
[14:40:53.598] }
[14:40:53.598] ...future.result$conditions <- ...future.conditions
[14:40:53.598] ...future.result$finished <- base::Sys.time()
[14:40:53.598] ...future.result
[14:40:53.598] }
[14:40:53.605] - Launch lazy future ... done
[14:40:53.605] 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-debian-clang
Current CRAN status: OK: 13
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: ERROR: 1, OK: 12
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-prerel-macos-arm64
Current CRAN status: OK: 13
Current CRAN status: OK: 14
Current CRAN status: NOTE: 7, OK: 6
Version: 0.16.0
Check: Rd files
Result: NOTE
checkRd: (-1) R.cache-package.Rd:28-30: Lost braces in \itemize; meant \describe ?
checkRd: (-1) R.cache-package.Rd:31-34: Lost braces in \itemize; meant \describe ?
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-prerel-macos-arm64, r-prerel-windows-x86_64, r-patched-linux-x86_64
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: NOTE: 7, OK: 6
Version: 3.7.0
Check: Rd files
Result: NOTE
checkRd: (-1) setOption.Matlab.Rd:37-39: Lost braces in \itemize; meant \describe ?
checkRd: (-1) setOption.Matlab.Rd:40-41: Lost braces in \itemize; meant \describe ?
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-prerel-macos-arm64, r-prerel-windows-x86_64, r-patched-linux-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 14
Current CRAN status: OK: 14
Current CRAN status: OK: 13
Current CRAN status: OK: 14
Current CRAN status: OK: 13
Current CRAN status: NOTE: 7, OK: 6
Version: 0.10.1
Check: Rd files
Result: NOTE
checkRd: (-1) TopDom.Rd:21: Lost braces; missing escapes or markup?
21 | Recommended range is in {5, ..., 20}.}
| ^
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-prerel-macos-arm64, r-prerel-windows-x86_64, r-patched-linux-x86_64