Last updated on 2024-06-21 15:53:18 CEST.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| ACNE | 13 | ||
| aroma.affymetrix | 8 | 5 | |
| aroma.apd | 2 | 11 | |
| aroma.cn | 2 | 11 | |
| aroma.core | 13 | ||
| calmate | 1 | 12 | |
| dChipIO | 13 | ||
| doFuture | 13 | ||
| future | 13 | ||
| future.apply | 13 | ||
| future.batchtools | 13 | ||
| future.callr | 13 | ||
| future.mirai | 1 | 12 | |
| future.tests | 13 | ||
| futureverse | 13 | ||
| globals | 13 | ||
| listenv | 13 | ||
| matrixStats | 13 | ||
| parallelly | 13 | ||
| port4me | 13 | ||
| profmem | 1 | 12 | |
| progressr | 13 | ||
| PSCBS | 13 | ||
| R.cache | 10 | 3 | |
| R.devices | 1 | 12 | |
| R.filesets | 13 | ||
| R.huge | 13 | ||
| R.matlab | 10 | 3 | |
| R.methodsS3 | 13 | ||
| R.oo | 13 | ||
| R.rsp | 13 | ||
| R.utils | 13 | ||
| seguid | 13 | ||
| startup | 13 | ||
| TopDom | 10 | 3 |
Current CRAN status: OK: 13
Current CRAN status: NOTE: 8, OK: 5
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
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-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
Current CRAN status: NOTE: 2, OK: 11
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
Current CRAN status: NOTE: 13
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-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
Current CRAN status: ERROR: 1, OK: 12
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
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 1, OK: 12
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘demo.R’ [1s/3s]
Running ‘dotdotdot.R’ [1s/4s]
Running ‘future,labels.R’ [1s/3s]
Running ‘future,lazy.R’ [1s/3s]
Running ‘future.tests,mirai_cluster.R’ [8s/24s]
Running ‘future.tests-mirai_multisession.R’ [9s/29s]
Running ‘globals,formulas.R’ [1s/4s]
Running ‘globals,manual.R’ [1s/3s]
Running ‘globals,nested.R’ [1s/2s]
Running ‘globals,subassignment.R’ [1s/4s]
Running ‘globals,tricky.R’ [1s/4s]
Running ‘mirai_cluster,worker-termination.R’ [1s/3s]
Running ‘mirai_cluster.R’ [1s/4s]
Running ‘nbrOfWorkers.R’ [1s/2s]
Running ‘plan.R’ [1s/3s]
Running ‘rng.R’ [1s/3s]
Running ‘stdout.R’ [1s/4s]
Running ‘zzz,future_lapply.R’ [27s/34s]
Running the tests in ‘tests/mirai_cluster,worker-termination.R’ failed.
Complete output:
> source("incl/start.R")
Loading required package: future
[23:32:29.006] plan(): Setting new future strategy stack:
[23:32:29.007] List of future strategies:
[23:32:29.007] 1. mirai_multisession:
[23:32:29.007] - args: function (expr, substitute = TRUE, envir = parent.frame(), ..., workers = availableCores())
[23:32:29.007] - tweaked: FALSE
[23:32:29.007] - call: future::plan(future.mirai::mirai_multisession)
[23:32:29.042] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
[23:32:29.043] < mirai [$data] >
[23:32:29.070] getGlobalsAndPackages() ...
[23:32:29.070] Not searching for globals
[23:32:29.071] - globals: [0] <none>
[23:32:29.071] getGlobalsAndPackages() ... DONE
[23:32:29.072] getGlobalsAndPackages() ...
[23:32:29.072]
[23:32:29.073] - globals: [0] <none>
[23:32:29.073] getGlobalsAndPackages() ... DONE
[23:32:30.069] Packages needed by the future expression (n = 0): <none>
[23:32:30.070] Packages needed by future strategies (n = 0): <none>
[23:32:30.090] {
[23:32:30.090] {
[23:32:30.090] {
[23:32:30.090] ...future.startTime <- base::Sys.time()
[23:32:30.090] {
[23:32:30.090] {
[23:32:30.090] {
[23:32:30.090] base::local({
[23:32:30.090] has_future <- base::requireNamespace("future",
[23:32:30.090] quietly = TRUE)
[23:32:30.090] if (has_future) {
[23:32:30.090] ns <- base::getNamespace("future")
[23:32:30.090] version <- ns[[".package"]][["version"]]
[23:32:30.090] if (is.null(version))
[23:32:30.090] version <- utils::packageVersion("future")
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] version <- NULL
[23:32:30.090] }
[23:32:30.090] if (!has_future || version < "1.8.0") {
[23:32:30.090] info <- base::c(r_version = base::gsub("R version ",
[23:32:30.090] "", base::R.version$version.string),
[23:32:30.090] platform = base::sprintf("%s (%s-bit)",
[23:32:30.090] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[23:32:30.090] os = base::paste(base::Sys.info()[base::c("sysname",
[23:32:30.090] "release", "version")], collapse = " "),
[23:32:30.090] hostname = base::Sys.info()[["nodename"]])
[23:32:30.090] info <- base::sprintf("%s: %s", base::names(info),
[23:32:30.090] info)
[23:32:30.090] info <- base::paste(info, collapse = "; ")
[23:32:30.090] if (!has_future) {
[23:32:30.090] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[23:32:30.090] info)
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[23:32:30.090] info, version)
[23:32:30.090] }
[23:32:30.090] base::stop(msg)
[23:32:30.090] }
[23:32:30.090] })
[23:32:30.090] }
[23:32:30.090] ...future.strategy.old <- future::plan("list")
[23:32:30.090] options(future.plan = NULL)
[23:32:30.090] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:30.090] future::plan("default", .cleanup = FALSE, .init = FALSE)
[23:32:30.090] }
[23:32:30.090] ...future.workdir <- getwd()
[23:32:30.090] }
[23:32:30.090] ...future.oldOptions <- base::as.list(base::.Options)
[23:32:30.090] ...future.oldEnvVars <- base::Sys.getenv()
[23:32:30.090] }
[23:32:30.090] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[23:32:30.090] future.globals.maxSize = NULL, future.globals.method = NULL,
[23:32:30.090] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[23:32:30.090] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[23:32:30.090] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[23:32:30.090] future.stdout.windows.reencode = NULL, width = 80L)
[23:32:30.090] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[23:32:30.090] base::names(...future.oldOptions))
[23:32:30.090] }
[23:32:30.090] if (FALSE) {
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] if (TRUE) {
[23:32:30.090] ...future.stdout <- base::rawConnection(base::raw(0L),
[23:32:30.090] open = "w")
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[23:32:30.090] windows = "NUL", "/dev/null"), open = "w")
[23:32:30.090] }
[23:32:30.090] base::sink(...future.stdout, type = "output", split = FALSE)
[23:32:30.090] base::on.exit(if (!base::is.null(...future.stdout)) {
[23:32:30.090] base::sink(type = "output", split = FALSE)
[23:32:30.090] base::close(...future.stdout)
[23:32:30.090] }, add = TRUE)
[23:32:30.090] }
[23:32:30.090] ...future.frame <- base::sys.nframe()
[23:32:30.090] ...future.conditions <- base::list()
[23:32:30.090] ...future.rng <- base::globalenv()$.Random.seed
[23:32:30.090] if (FALSE) {
[23:32:30.090] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[23:32:30.090] "...future.value", "...future.globalenv.names", ".Random.seed")
[23:32:30.090] }
[23:32:30.090] ...future.result <- base::tryCatch({
[23:32:30.090] base::withCallingHandlers({
[23:32:30.090] ...future.value <- base::withVisible(base::local(NA))
[23:32:30.090] future::FutureResult(value = ...future.value$value,
[23:32:30.090] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[23:32:30.090] ...future.rng), globalenv = if (FALSE)
[23:32:30.090] list(added = base::setdiff(base::names(base::.GlobalEnv),
[23:32:30.090] ...future.globalenv.names))
[23:32:30.090] else NULL, started = ...future.startTime, version = "1.8")
[23:32:30.090] }, condition = base::local({
[23:32:30.090] c <- base::c
[23:32:30.090] inherits <- base::inherits
[23:32:30.090] invokeRestart <- base::invokeRestart
[23:32:30.090] length <- base::length
[23:32:30.090] list <- base::list
[23:32:30.090] seq.int <- base::seq.int
[23:32:30.090] signalCondition <- base::signalCondition
[23:32:30.090] sys.calls <- base::sys.calls
[23:32:30.090] `[[` <- base::`[[`
[23:32:30.090] `+` <- base::`+`
[23:32:30.090] `<<-` <- base::`<<-`
[23:32:30.090] sysCalls <- function(calls = sys.calls(), from = 1L) {
[23:32:30.090] calls[seq.int(from = from + 12L, to = length(calls) -
[23:32:30.090] 3L)]
[23:32:30.090] }
[23:32:30.090] function(cond) {
[23:32:30.090] is_error <- inherits(cond, "error")
[23:32:30.090] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[23:32:30.090] NULL)
[23:32:30.090] if (is_error) {
[23:32:30.090] sessionInformation <- function() {
[23:32:30.090] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[23:32:30.090] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[23:32:30.090] search = base::search(), system = base::Sys.info())
[23:32:30.090] }
[23:32:30.090] ...future.conditions[[length(...future.conditions) +
[23:32:30.090] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[23:32:30.090] cond$call), session = sessionInformation(),
[23:32:30.090] timestamp = base::Sys.time(), signaled = 0L)
[23:32:30.090] signalCondition(cond)
[23:32:30.090] }
[23:32:30.090] else if (!ignore && TRUE && inherits(cond, "condition")) {
[23:32:30.090] signal <- FALSE && inherits(cond, character(0))
[23:32:30.090] ...future.conditions[[length(...future.conditions) +
[23:32:30.090] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[23:32:30.090] if (FALSE && !signal) {
[23:32:30.090] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:30.090] {
[23:32:30.090] inherits <- base::inherits
[23:32:30.090] invokeRestart <- base::invokeRestart
[23:32:30.090] is.null <- base::is.null
[23:32:30.090] muffled <- FALSE
[23:32:30.090] if (inherits(cond, "message")) {
[23:32:30.090] muffled <- grepl(pattern, "muffleMessage")
[23:32:30.090] if (muffled)
[23:32:30.090] invokeRestart("muffleMessage")
[23:32:30.090] }
[23:32:30.090] else if (inherits(cond, "warning")) {
[23:32:30.090] muffled <- grepl(pattern, "muffleWarning")
[23:32:30.090] if (muffled)
[23:32:30.090] invokeRestart("muffleWarning")
[23:32:30.090] }
[23:32:30.090] else if (inherits(cond, "condition")) {
[23:32:30.090] if (!is.null(pattern)) {
[23:32:30.090] computeRestarts <- base::computeRestarts
[23:32:30.090] grepl <- base::grepl
[23:32:30.090] restarts <- computeRestarts(cond)
[23:32:30.090] for (restart in restarts) {
[23:32:30.090] name <- restart$name
[23:32:30.090] if (is.null(name))
[23:32:30.090] next
[23:32:30.090] if (!grepl(pattern, name))
[23:32:30.090] next
[23:32:30.090] invokeRestart(restart)
[23:32:30.090] muffled <- TRUE
[23:32:30.090] break
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] invisible(muffled)
[23:32:30.090] }
[23:32:30.090] muffleCondition(cond, pattern = "^muffle")
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] if (TRUE) {
[23:32:30.090] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:30.090] {
[23:32:30.090] inherits <- base::inherits
[23:32:30.090] invokeRestart <- base::invokeRestart
[23:32:30.090] is.null <- base::is.null
[23:32:30.090] muffled <- FALSE
[23:32:30.090] if (inherits(cond, "message")) {
[23:32:30.090] muffled <- grepl(pattern, "muffleMessage")
[23:32:30.090] if (muffled)
[23:32:30.090] invokeRestart("muffleMessage")
[23:32:30.090] }
[23:32:30.090] else if (inherits(cond, "warning")) {
[23:32:30.090] muffled <- grepl(pattern, "muffleWarning")
[23:32:30.090] if (muffled)
[23:32:30.090] invokeRestart("muffleWarning")
[23:32:30.090] }
[23:32:30.090] else if (inherits(cond, "condition")) {
[23:32:30.090] if (!is.null(pattern)) {
[23:32:30.090] computeRestarts <- base::computeRestarts
[23:32:30.090] grepl <- base::grepl
[23:32:30.090] restarts <- computeRestarts(cond)
[23:32:30.090] for (restart in restarts) {
[23:32:30.090] name <- restart$name
[23:32:30.090] if (is.null(name))
[23:32:30.090] next
[23:32:30.090] if (!grepl(pattern, name))
[23:32:30.090] next
[23:32:30.090] invokeRestart(restart)
[23:32:30.090] muffled <- TRUE
[23:32:30.090] break
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] invisible(muffled)
[23:32:30.090] }
[23:32:30.090] muffleCondition(cond, pattern = "^muffle")
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] }))
[23:32:30.090] }, error = function(ex) {
[23:32:30.090] base::structure(base::list(value = NULL, visible = NULL,
[23:32:30.090] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[23:32:30.090] ...future.rng), started = ...future.startTime,
[23:32:30.090] finished = Sys.time(), session_uuid = NA_character_,
[23:32:30.090] version = "1.8"), class = "FutureResult")
[23:32:30.090] }, finally = {
[23:32:30.090] if (!identical(...future.workdir, getwd()))
[23:32:30.090] setwd(...future.workdir)
[23:32:30.090] {
[23:32:30.090] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[23:32:30.090] ...future.oldOptions$nwarnings <- NULL
[23:32:30.090] }
[23:32:30.090] base::options(...future.oldOptions)
[23:32:30.090] if (.Platform$OS.type == "windows") {
[23:32:30.090] old_names <- names(...future.oldEnvVars)
[23:32:30.090] envs <- base::Sys.getenv()
[23:32:30.090] names <- names(envs)
[23:32:30.090] common <- intersect(names, old_names)
[23:32:30.090] added <- setdiff(names, old_names)
[23:32:30.090] removed <- setdiff(old_names, names)
[23:32:30.090] changed <- common[...future.oldEnvVars[common] !=
[23:32:30.090] envs[common]]
[23:32:30.090] NAMES <- toupper(changed)
[23:32:30.090] args <- list()
[23:32:30.090] for (kk in seq_along(NAMES)) {
[23:32:30.090] name <- changed[[kk]]
[23:32:30.090] NAME <- NAMES[[kk]]
[23:32:30.090] if (name != NAME && is.element(NAME, old_names))
[23:32:30.090] next
[23:32:30.090] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:30.090] }
[23:32:30.090] NAMES <- toupper(added)
[23:32:30.090] for (kk in seq_along(NAMES)) {
[23:32:30.090] name <- added[[kk]]
[23:32:30.090] NAME <- NAMES[[kk]]
[23:32:30.090] if (name != NAME && is.element(NAME, old_names))
[23:32:30.090] next
[23:32:30.090] args[[name]] <- ""
[23:32:30.090] }
[23:32:30.090] NAMES <- toupper(removed)
[23:32:30.090] for (kk in seq_along(NAMES)) {
[23:32:30.090] name <- removed[[kk]]
[23:32:30.090] NAME <- NAMES[[kk]]
[23:32:30.090] if (name != NAME && is.element(NAME, old_names))
[23:32:30.090] next
[23:32:30.090] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:30.090] }
[23:32:30.090] if (length(args) > 0)
[23:32:30.090] base::do.call(base::Sys.setenv, args = args)
[23:32:30.090] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[23:32:30.090] }
[23:32:30.090] {
[23:32:30.090] if (base::length(...future.futureOptionsAdded) >
[23:32:30.090] 0L) {
[23:32:30.090] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[23:32:30.090] base::names(opts) <- ...future.futureOptionsAdded
[23:32:30.090] base::options(opts)
[23:32:30.090] }
[23:32:30.090] {
[23:32:30.090] NULL
[23:32:30.090] options(future.plan = NULL)
[23:32:30.090] if (is.na(NA_character_))
[23:32:30.090] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:30.090] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[23:32:30.090] future::plan(...future.strategy.old, .cleanup = FALSE,
[23:32:30.090] .init = FALSE)
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] }
[23:32:30.090] })
[23:32:30.090] if (TRUE) {
[23:32:30.090] base::sink(type = "output", split = FALSE)
[23:32:30.090] if (TRUE) {
[23:32:30.090] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[23:32:30.090] }
[23:32:30.090] else {
[23:32:30.090] ...future.result["stdout"] <- base::list(NULL)
[23:32:30.090] }
[23:32:30.090] base::close(...future.stdout)
[23:32:30.090] ...future.stdout <- NULL
[23:32:30.090] }
[23:32:30.090] ...future.result$conditions <- ...future.conditions
[23:32:30.090] ...future.result$finished <- base::Sys.time()
[23:32:30.090] ...future.result
[23:32:30.090] }
[23:32:30.562] plan(): plan_init() of 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE
[23:32:30.563] plan(): nbrOfWorkers() = 2
>
> message("*** mirai_multisession() - terminating workers ...")
*** mirai_multisession() - terminating workers ...
>
> plan(mirai_multisession, workers = 2L)
[23:32:30.565] plan(): Setting new future strategy stack:
[23:32:30.567] List of future strategies:
[23:32:30.567] 1. mirai_multisession:
[23:32:30.567] - args: function (..., workers = 2L, envir = parent.frame())
[23:32:30.567] - tweaked: TRUE
[23:32:30.567] - call: plan(mirai_multisession, workers = 2L)
[23:32:30.633] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ...
[23:32:30.641] < mirai [$data] >
[23:32:30.641] getGlobalsAndPackages() ...
[23:32:30.642] Not searching for globals
[23:32:30.642] - globals: [0] <none>
[23:32:30.642] getGlobalsAndPackages() ... DONE
[23:32:30.643] getGlobalsAndPackages() ...
[23:32:30.643]
[23:32:30.643] - globals: [0] <none>
[23:32:30.644] getGlobalsAndPackages() ... DONE
[23:32:30.644] Packages needed by the future expression (n = 0): <none>
[23:32:30.645] Packages needed by future strategies (n = 0): <none>
[23:32:30.650] {
[23:32:30.650] {
[23:32:30.650] {
[23:32:30.650] ...future.startTime <- base::Sys.time()
[23:32:30.650] {
[23:32:30.650] {
[23:32:30.650] {
[23:32:30.650] base::local({
[23:32:30.650] has_future <- base::requireNamespace("future",
[23:32:30.650] quietly = TRUE)
[23:32:30.650] if (has_future) {
[23:32:30.650] ns <- base::getNamespace("future")
[23:32:30.650] version <- ns[[".package"]][["version"]]
[23:32:30.650] if (is.null(version))
[23:32:30.650] version <- utils::packageVersion("future")
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] version <- NULL
[23:32:30.650] }
[23:32:30.650] if (!has_future || version < "1.8.0") {
[23:32:30.650] info <- base::c(r_version = base::gsub("R version ",
[23:32:30.650] "", base::R.version$version.string),
[23:32:30.650] platform = base::sprintf("%s (%s-bit)",
[23:32:30.650] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[23:32:30.650] os = base::paste(base::Sys.info()[base::c("sysname",
[23:32:30.650] "release", "version")], collapse = " "),
[23:32:30.650] hostname = base::Sys.info()[["nodename"]])
[23:32:30.650] info <- base::sprintf("%s: %s", base::names(info),
[23:32:30.650] info)
[23:32:30.650] info <- base::paste(info, collapse = "; ")
[23:32:30.650] if (!has_future) {
[23:32:30.650] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[23:32:30.650] info)
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[23:32:30.650] info, version)
[23:32:30.650] }
[23:32:30.650] base::stop(msg)
[23:32:30.650] }
[23:32:30.650] })
[23:32:30.650] }
[23:32:30.650] ...future.strategy.old <- future::plan("list")
[23:32:30.650] options(future.plan = NULL)
[23:32:30.650] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:30.650] future::plan("default", .cleanup = FALSE, .init = FALSE)
[23:32:30.650] }
[23:32:30.650] ...future.workdir <- getwd()
[23:32:30.650] }
[23:32:30.650] ...future.oldOptions <- base::as.list(base::.Options)
[23:32:30.650] ...future.oldEnvVars <- base::Sys.getenv()
[23:32:30.650] }
[23:32:30.650] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[23:32:30.650] future.globals.maxSize = NULL, future.globals.method = NULL,
[23:32:30.650] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[23:32:30.650] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[23:32:30.650] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[23:32:30.650] future.stdout.windows.reencode = NULL, width = 80L)
[23:32:30.650] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[23:32:30.650] base::names(...future.oldOptions))
[23:32:30.650] }
[23:32:30.650] if (FALSE) {
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] if (TRUE) {
[23:32:30.650] ...future.stdout <- base::rawConnection(base::raw(0L),
[23:32:30.650] open = "w")
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[23:32:30.650] windows = "NUL", "/dev/null"), open = "w")
[23:32:30.650] }
[23:32:30.650] base::sink(...future.stdout, type = "output", split = FALSE)
[23:32:30.650] base::on.exit(if (!base::is.null(...future.stdout)) {
[23:32:30.650] base::sink(type = "output", split = FALSE)
[23:32:30.650] base::close(...future.stdout)
[23:32:30.650] }, add = TRUE)
[23:32:30.650] }
[23:32:30.650] ...future.frame <- base::sys.nframe()
[23:32:30.650] ...future.conditions <- base::list()
[23:32:30.650] ...future.rng <- base::globalenv()$.Random.seed
[23:32:30.650] if (FALSE) {
[23:32:30.650] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[23:32:30.650] "...future.value", "...future.globalenv.names", ".Random.seed")
[23:32:30.650] }
[23:32:30.650] ...future.result <- base::tryCatch({
[23:32:30.650] base::withCallingHandlers({
[23:32:30.650] ...future.value <- base::withVisible(base::local(NA))
[23:32:30.650] future::FutureResult(value = ...future.value$value,
[23:32:30.650] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[23:32:30.650] ...future.rng), globalenv = if (FALSE)
[23:32:30.650] list(added = base::setdiff(base::names(base::.GlobalEnv),
[23:32:30.650] ...future.globalenv.names))
[23:32:30.650] else NULL, started = ...future.startTime, version = "1.8")
[23:32:30.650] }, condition = base::local({
[23:32:30.650] c <- base::c
[23:32:30.650] inherits <- base::inherits
[23:32:30.650] invokeRestart <- base::invokeRestart
[23:32:30.650] length <- base::length
[23:32:30.650] list <- base::list
[23:32:30.650] seq.int <- base::seq.int
[23:32:30.650] signalCondition <- base::signalCondition
[23:32:30.650] sys.calls <- base::sys.calls
[23:32:30.650] `[[` <- base::`[[`
[23:32:30.650] `+` <- base::`+`
[23:32:30.650] `<<-` <- base::`<<-`
[23:32:30.650] sysCalls <- function(calls = sys.calls(), from = 1L) {
[23:32:30.650] calls[seq.int(from = from + 12L, to = length(calls) -
[23:32:30.650] 3L)]
[23:32:30.650] }
[23:32:30.650] function(cond) {
[23:32:30.650] is_error <- inherits(cond, "error")
[23:32:30.650] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[23:32:30.650] NULL)
[23:32:30.650] if (is_error) {
[23:32:30.650] sessionInformation <- function() {
[23:32:30.650] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[23:32:30.650] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[23:32:30.650] search = base::search(), system = base::Sys.info())
[23:32:30.650] }
[23:32:30.650] ...future.conditions[[length(...future.conditions) +
[23:32:30.650] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[23:32:30.650] cond$call), session = sessionInformation(),
[23:32:30.650] timestamp = base::Sys.time(), signaled = 0L)
[23:32:30.650] signalCondition(cond)
[23:32:30.650] }
[23:32:30.650] else if (!ignore && TRUE && inherits(cond, "condition")) {
[23:32:30.650] signal <- FALSE && inherits(cond, character(0))
[23:32:30.650] ...future.conditions[[length(...future.conditions) +
[23:32:30.650] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[23:32:30.650] if (FALSE && !signal) {
[23:32:30.650] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:30.650] {
[23:32:30.650] inherits <- base::inherits
[23:32:30.650] invokeRestart <- base::invokeRestart
[23:32:30.650] is.null <- base::is.null
[23:32:30.650] muffled <- FALSE
[23:32:30.650] if (inherits(cond, "message")) {
[23:32:30.650] muffled <- grepl(pattern, "muffleMessage")
[23:32:30.650] if (muffled)
[23:32:30.650] invokeRestart("muffleMessage")
[23:32:30.650] }
[23:32:30.650] else if (inherits(cond, "warning")) {
[23:32:30.650] muffled <- grepl(pattern, "muffleWarning")
[23:32:30.650] if (muffled)
[23:32:30.650] invokeRestart("muffleWarning")
[23:32:30.650] }
[23:32:30.650] else if (inherits(cond, "condition")) {
[23:32:30.650] if (!is.null(pattern)) {
[23:32:30.650] computeRestarts <- base::computeRestarts
[23:32:30.650] grepl <- base::grepl
[23:32:30.650] restarts <- computeRestarts(cond)
[23:32:30.650] for (restart in restarts) {
[23:32:30.650] name <- restart$name
[23:32:30.650] if (is.null(name))
[23:32:30.650] next
[23:32:30.650] if (!grepl(pattern, name))
[23:32:30.650] next
[23:32:30.650] invokeRestart(restart)
[23:32:30.650] muffled <- TRUE
[23:32:30.650] break
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] invisible(muffled)
[23:32:30.650] }
[23:32:30.650] muffleCondition(cond, pattern = "^muffle")
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] if (TRUE) {
[23:32:30.650] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:30.650] {
[23:32:30.650] inherits <- base::inherits
[23:32:30.650] invokeRestart <- base::invokeRestart
[23:32:30.650] is.null <- base::is.null
[23:32:30.650] muffled <- FALSE
[23:32:30.650] if (inherits(cond, "message")) {
[23:32:30.650] muffled <- grepl(pattern, "muffleMessage")
[23:32:30.650] if (muffled)
[23:32:30.650] invokeRestart("muffleMessage")
[23:32:30.650] }
[23:32:30.650] else if (inherits(cond, "warning")) {
[23:32:30.650] muffled <- grepl(pattern, "muffleWarning")
[23:32:30.650] if (muffled)
[23:32:30.650] invokeRestart("muffleWarning")
[23:32:30.650] }
[23:32:30.650] else if (inherits(cond, "condition")) {
[23:32:30.650] if (!is.null(pattern)) {
[23:32:30.650] computeRestarts <- base::computeRestarts
[23:32:30.650] grepl <- base::grepl
[23:32:30.650] restarts <- computeRestarts(cond)
[23:32:30.650] for (restart in restarts) {
[23:32:30.650] name <- restart$name
[23:32:30.650] if (is.null(name))
[23:32:30.650] next
[23:32:30.650] if (!grepl(pattern, name))
[23:32:30.650] next
[23:32:30.650] invokeRestart(restart)
[23:32:30.650] muffled <- TRUE
[23:32:30.650] break
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] invisible(muffled)
[23:32:30.650] }
[23:32:30.650] muffleCondition(cond, pattern = "^muffle")
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] }))
[23:32:30.650] }, error = function(ex) {
[23:32:30.650] base::structure(base::list(value = NULL, visible = NULL,
[23:32:30.650] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[23:32:30.650] ...future.rng), started = ...future.startTime,
[23:32:30.650] finished = Sys.time(), session_uuid = NA_character_,
[23:32:30.650] version = "1.8"), class = "FutureResult")
[23:32:30.650] }, finally = {
[23:32:30.650] if (!identical(...future.workdir, getwd()))
[23:32:30.650] setwd(...future.workdir)
[23:32:30.650] {
[23:32:30.650] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[23:32:30.650] ...future.oldOptions$nwarnings <- NULL
[23:32:30.650] }
[23:32:30.650] base::options(...future.oldOptions)
[23:32:30.650] if (.Platform$OS.type == "windows") {
[23:32:30.650] old_names <- names(...future.oldEnvVars)
[23:32:30.650] envs <- base::Sys.getenv()
[23:32:30.650] names <- names(envs)
[23:32:30.650] common <- intersect(names, old_names)
[23:32:30.650] added <- setdiff(names, old_names)
[23:32:30.650] removed <- setdiff(old_names, names)
[23:32:30.650] changed <- common[...future.oldEnvVars[common] !=
[23:32:30.650] envs[common]]
[23:32:30.650] NAMES <- toupper(changed)
[23:32:30.650] args <- list()
[23:32:30.650] for (kk in seq_along(NAMES)) {
[23:32:30.650] name <- changed[[kk]]
[23:32:30.650] NAME <- NAMES[[kk]]
[23:32:30.650] if (name != NAME && is.element(NAME, old_names))
[23:32:30.650] next
[23:32:30.650] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:30.650] }
[23:32:30.650] NAMES <- toupper(added)
[23:32:30.650] for (kk in seq_along(NAMES)) {
[23:32:30.650] name <- added[[kk]]
[23:32:30.650] NAME <- NAMES[[kk]]
[23:32:30.650] if (name != NAME && is.element(NAME, old_names))
[23:32:30.650] next
[23:32:30.650] args[[name]] <- ""
[23:32:30.650] }
[23:32:30.650] NAMES <- toupper(removed)
[23:32:30.650] for (kk in seq_along(NAMES)) {
[23:32:30.650] name <- removed[[kk]]
[23:32:30.650] NAME <- NAMES[[kk]]
[23:32:30.650] if (name != NAME && is.element(NAME, old_names))
[23:32:30.650] next
[23:32:30.650] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:30.650] }
[23:32:30.650] if (length(args) > 0)
[23:32:30.650] base::do.call(base::Sys.setenv, args = args)
[23:32:30.650] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[23:32:30.650] }
[23:32:30.650] {
[23:32:30.650] if (base::length(...future.futureOptionsAdded) >
[23:32:30.650] 0L) {
[23:32:30.650] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[23:32:30.650] base::names(opts) <- ...future.futureOptionsAdded
[23:32:30.650] base::options(opts)
[23:32:30.650] }
[23:32:30.650] {
[23:32:30.650] NULL
[23:32:30.650] options(future.plan = NULL)
[23:32:30.650] if (is.na(NA_character_))
[23:32:30.650] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:30.650] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[23:32:30.650] future::plan(...future.strategy.old, .cleanup = FALSE,
[23:32:30.650] .init = FALSE)
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] }
[23:32:30.650] })
[23:32:30.650] if (TRUE) {
[23:32:30.650] base::sink(type = "output", split = FALSE)
[23:32:30.650] if (TRUE) {
[23:32:30.650] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[23:32:30.650] }
[23:32:30.650] else {
[23:32:30.650] ...future.result["stdout"] <- base::list(NULL)
[23:32:30.650] }
[23:32:30.650] base::close(...future.stdout)
[23:32:30.650] ...future.stdout <- NULL
[23:32:30.650] }
[23:32:30.650] ...future.result$conditions <- ...future.conditions
[23:32:30.650] ...future.result$finished <- base::Sys.time()
[23:32:30.650] ...future.result
[23:32:30.650] }
[23:32:31.009] plan(): plan_init() of 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function' ... DONE
[23:32:31.010] 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"))
+
+ ## FIXME: nbrOfWorkers()/nbrOfFreeWorkers() can throw a FutureError,
+ ## cf. https://github.com/HenrikBengtsson/future.mirai/issues/7
+ nworkers <- tryCatch(nbrOfWorkers(), error = identity)
+ print(nworkers)
+ if (!inherits(nworkers, "error")) {
+ message("Number of workers: ", nworkers)
+ stopifnot(nworkers == all - 1L)
+ }
+
+ nfreeworkers <- tryCatch(nbrOfFreeWorkers(), error = identity)
+ print(nfreeworkers)
+ if (!inherits(nfreeworkers, "error")) {
+ message("Number of free workers: ", nfreeworkers)
+ stopifnot(nfreeworkers == free - 1L)
+ }
+ }
[23:32:31.021] getGlobalsAndPackages() ...
[23:32:31.022] Searching for globals...
[23:32:31.073] - globals found: [3] '{', '::', 'Sys.getpid'
[23:32:31.074] Searching for globals ... DONE
[23:32:31.074] Resolving globals: FALSE
[23:32:31.075]
[23:32:31.076]
[23:32:31.076] getGlobalsAndPackages() ... DONE
[23:32:31.081] run() for 'Future' ...
[23:32:31.082] - state: 'created'
[23:32:31.082] - Future backend: 'FutureStrategy', 'tweaked', 'mirai_multisession', 'mirai_cluster', 'mirai', 'multiprocess', 'future', 'function'
[23:32:31.083] - Future class: 'MiraiFuture', 'MultiprocessFuture', 'Future', 'environment'
[23:32:31.084] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ...
[23:32:31.084] - Field: 'label'
[23:32:31.084] - Field: 'local'
[23:32:31.084] - Field: 'owner'
[23:32:31.085] - Field: 'envir'
[23:32:31.089] - Field: 'packages'
[23:32:31.090] - Field: 'gc'
[23:32:31.090] - Field: 'conditions'
[23:32:31.090] - Field: 'expr'
[23:32:31.090] - Field: 'uuid'
[23:32:31.091] - Field: 'seed'
[23:32:31.091] - Field: 'version'
[23:32:31.091] - Field: 'result'
[23:32:31.091] - Field: 'asynchronous'
[23:32:31.092] - Field: 'calls'
[23:32:31.092] - Field: 'globals'
[23:32:31.092] - Field: 'stdout'
[23:32:31.093] - Field: 'earlySignal'
[23:32:31.093] - Field: 'lazy'
[23:32:31.097] - Field: 'state'
[23:32:31.098] - Field: '.cluster'
[23:32:31.098] - Copy elements of temporary 'MiraiFuture' to final 'Future' object ... done
[23:32:31.098] - Launch lazy future ...
[23:32:31.099] Packages needed by the future expression (n = 0): <none>
[23:32:31.099] Packages needed by future strategies (n = 0): <none>
[23:32:31.101] {
[23:32:31.101] {
[23:32:31.101] {
[23:32:31.101] ...future.startTime <- base::Sys.time()
[23:32:31.101] {
[23:32:31.101] {
[23:32:31.101] {
[23:32:31.101] base::local({
[23:32:31.101] has_future <- base::requireNamespace("future",
[23:32:31.101] quietly = TRUE)
[23:32:31.101] if (has_future) {
[23:32:31.101] ns <- base::getNamespace("future")
[23:32:31.101] version <- ns[[".package"]][["version"]]
[23:32:31.101] if (is.null(version))
[23:32:31.101] version <- utils::packageVersion("future")
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] version <- NULL
[23:32:31.101] }
[23:32:31.101] if (!has_future || version < "1.8.0") {
[23:32:31.101] info <- base::c(r_version = base::gsub("R version ",
[23:32:31.101] "", base::R.version$version.string),
[23:32:31.101] platform = base::sprintf("%s (%s-bit)",
[23:32:31.101] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[23:32:31.101] os = base::paste(base::Sys.info()[base::c("sysname",
[23:32:31.101] "release", "version")], collapse = " "),
[23:32:31.101] hostname = base::Sys.info()[["nodename"]])
[23:32:31.101] info <- base::sprintf("%s: %s", base::names(info),
[23:32:31.101] info)
[23:32:31.101] info <- base::paste(info, collapse = "; ")
[23:32:31.101] if (!has_future) {
[23:32:31.101] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[23:32:31.101] info)
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[23:32:31.101] info, version)
[23:32:31.101] }
[23:32:31.101] base::stop(msg)
[23:32:31.101] }
[23:32:31.101] })
[23:32:31.101] }
[23:32:31.101] ...future.strategy.old <- future::plan("list")
[23:32:31.101] options(future.plan = NULL)
[23:32:31.101] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:31.101] future::plan("default", .cleanup = FALSE, .init = FALSE)
[23:32:31.101] }
[23:32:31.101] ...future.workdir <- getwd()
[23:32:31.101] }
[23:32:31.101] ...future.oldOptions <- base::as.list(base::.Options)
[23:32:31.101] ...future.oldEnvVars <- base::Sys.getenv()
[23:32:31.101] }
[23:32:31.101] base::options(future.startup.script = FALSE, future.globals.onMissing = NULL,
[23:32:31.101] future.globals.maxSize = NULL, future.globals.method = NULL,
[23:32:31.101] future.globals.onMissing = NULL, future.globals.onReference = NULL,
[23:32:31.101] future.globals.resolve = NULL, future.resolve.recursive = NULL,
[23:32:31.101] future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL,
[23:32:31.101] future.stdout.windows.reencode = NULL, width = 80L)
[23:32:31.101] ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options),
[23:32:31.101] base::names(...future.oldOptions))
[23:32:31.101] }
[23:32:31.101] if (FALSE) {
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] if (TRUE) {
[23:32:31.101] ...future.stdout <- base::rawConnection(base::raw(0L),
[23:32:31.101] open = "w")
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[23:32:31.101] windows = "NUL", "/dev/null"), open = "w")
[23:32:31.101] }
[23:32:31.101] base::sink(...future.stdout, type = "output", split = FALSE)
[23:32:31.101] base::on.exit(if (!base::is.null(...future.stdout)) {
[23:32:31.101] base::sink(type = "output", split = FALSE)
[23:32:31.101] base::close(...future.stdout)
[23:32:31.101] }, add = TRUE)
[23:32:31.101] }
[23:32:31.101] ...future.frame <- base::sys.nframe()
[23:32:31.101] ...future.conditions <- base::list()
[23:32:31.101] ...future.rng <- base::globalenv()$.Random.seed
[23:32:31.101] if (FALSE) {
[23:32:31.101] ...future.globalenv.names <- c(base::names(base::.GlobalEnv),
[23:32:31.101] "...future.value", "...future.globalenv.names", ".Random.seed")
[23:32:31.101] }
[23:32:31.101] ...future.result <- base::tryCatch({
[23:32:31.101] base::withCallingHandlers({
[23:32:31.101] ...future.value <- base::withVisible(base::local({
[23:32:31.101] tools::pskill(pid = Sys.getpid())
[23:32:31.101] }))
[23:32:31.101] future::FutureResult(value = ...future.value$value,
[23:32:31.101] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[23:32:31.101] ...future.rng), globalenv = if (FALSE)
[23:32:31.101] list(added = base::setdiff(base::names(base::.GlobalEnv),
[23:32:31.101] ...future.globalenv.names))
[23:32:31.101] else NULL, started = ...future.startTime, version = "1.8")
[23:32:31.101] }, condition = base::local({
[23:32:31.101] c <- base::c
[23:32:31.101] inherits <- base::inherits
[23:32:31.101] invokeRestart <- base::invokeRestart
[23:32:31.101] length <- base::length
[23:32:31.101] list <- base::list
[23:32:31.101] seq.int <- base::seq.int
[23:32:31.101] signalCondition <- base::signalCondition
[23:32:31.101] sys.calls <- base::sys.calls
[23:32:31.101] `[[` <- base::`[[`
[23:32:31.101] `+` <- base::`+`
[23:32:31.101] `<<-` <- base::`<<-`
[23:32:31.101] sysCalls <- function(calls = sys.calls(), from = 1L) {
[23:32:31.101] calls[seq.int(from = from + 12L, to = length(calls) -
[23:32:31.101] 3L)]
[23:32:31.101] }
[23:32:31.101] function(cond) {
[23:32:31.101] is_error <- inherits(cond, "error")
[23:32:31.101] ignore <- !is_error && !is.null(NULL) && inherits(cond,
[23:32:31.101] NULL)
[23:32:31.101] if (is_error) {
[23:32:31.101] sessionInformation <- function() {
[23:32:31.101] list(r = base::R.Version(), locale = base::Sys.getlocale(),
[23:32:31.101] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
[23:32:31.101] search = base::search(), system = base::Sys.info())
[23:32:31.101] }
[23:32:31.101] ...future.conditions[[length(...future.conditions) +
[23:32:31.101] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[23:32:31.101] cond$call), session = sessionInformation(),
[23:32:31.101] timestamp = base::Sys.time(), signaled = 0L)
[23:32:31.101] signalCondition(cond)
[23:32:31.101] }
[23:32:31.101] else if (!ignore && TRUE && inherits(cond, "condition")) {
[23:32:31.101] signal <- FALSE && inherits(cond, character(0))
[23:32:31.101] ...future.conditions[[length(...future.conditions) +
[23:32:31.101] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[23:32:31.101] if (FALSE && !signal) {
[23:32:31.101] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:31.101] {
[23:32:31.101] inherits <- base::inherits
[23:32:31.101] invokeRestart <- base::invokeRestart
[23:32:31.101] is.null <- base::is.null
[23:32:31.101] muffled <- FALSE
[23:32:31.101] if (inherits(cond, "message")) {
[23:32:31.101] muffled <- grepl(pattern, "muffleMessage")
[23:32:31.101] if (muffled)
[23:32:31.101] invokeRestart("muffleMessage")
[23:32:31.101] }
[23:32:31.101] else if (inherits(cond, "warning")) {
[23:32:31.101] muffled <- grepl(pattern, "muffleWarning")
[23:32:31.101] if (muffled)
[23:32:31.101] invokeRestart("muffleWarning")
[23:32:31.101] }
[23:32:31.101] else if (inherits(cond, "condition")) {
[23:32:31.101] if (!is.null(pattern)) {
[23:32:31.101] computeRestarts <- base::computeRestarts
[23:32:31.101] grepl <- base::grepl
[23:32:31.101] restarts <- computeRestarts(cond)
[23:32:31.101] for (restart in restarts) {
[23:32:31.101] name <- restart$name
[23:32:31.101] if (is.null(name))
[23:32:31.101] next
[23:32:31.101] if (!grepl(pattern, name))
[23:32:31.101] next
[23:32:31.101] invokeRestart(restart)
[23:32:31.101] muffled <- TRUE
[23:32:31.101] break
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] invisible(muffled)
[23:32:31.101] }
[23:32:31.101] muffleCondition(cond, pattern = "^muffle")
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] if (TRUE) {
[23:32:31.101] muffleCondition <- function (cond, pattern = "^muffle")
[23:32:31.101] {
[23:32:31.101] inherits <- base::inherits
[23:32:31.101] invokeRestart <- base::invokeRestart
[23:32:31.101] is.null <- base::is.null
[23:32:31.101] muffled <- FALSE
[23:32:31.101] if (inherits(cond, "message")) {
[23:32:31.101] muffled <- grepl(pattern, "muffleMessage")
[23:32:31.101] if (muffled)
[23:32:31.101] invokeRestart("muffleMessage")
[23:32:31.101] }
[23:32:31.101] else if (inherits(cond, "warning")) {
[23:32:31.101] muffled <- grepl(pattern, "muffleWarning")
[23:32:31.101] if (muffled)
[23:32:31.101] invokeRestart("muffleWarning")
[23:32:31.101] }
[23:32:31.101] else if (inherits(cond, "condition")) {
[23:32:31.101] if (!is.null(pattern)) {
[23:32:31.101] computeRestarts <- base::computeRestarts
[23:32:31.101] grepl <- base::grepl
[23:32:31.101] restarts <- computeRestarts(cond)
[23:32:31.101] for (restart in restarts) {
[23:32:31.101] name <- restart$name
[23:32:31.101] if (is.null(name))
[23:32:31.101] next
[23:32:31.101] if (!grepl(pattern, name))
[23:32:31.101] next
[23:32:31.101] invokeRestart(restart)
[23:32:31.101] muffled <- TRUE
[23:32:31.101] break
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] invisible(muffled)
[23:32:31.101] }
[23:32:31.101] muffleCondition(cond, pattern = "^muffle")
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] }))
[23:32:31.101] }, error = function(ex) {
[23:32:31.101] base::structure(base::list(value = NULL, visible = NULL,
[23:32:31.101] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[23:32:31.101] ...future.rng), started = ...future.startTime,
[23:32:31.101] finished = Sys.time(), session_uuid = NA_character_,
[23:32:31.101] version = "1.8"), class = "FutureResult")
[23:32:31.101] }, finally = {
[23:32:31.101] if (!identical(...future.workdir, getwd()))
[23:32:31.101] setwd(...future.workdir)
[23:32:31.101] {
[23:32:31.101] if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[23:32:31.101] ...future.oldOptions$nwarnings <- NULL
[23:32:31.101] }
[23:32:31.101] base::options(...future.oldOptions)
[23:32:31.101] if (.Platform$OS.type == "windows") {
[23:32:31.101] old_names <- names(...future.oldEnvVars)
[23:32:31.101] envs <- base::Sys.getenv()
[23:32:31.101] names <- names(envs)
[23:32:31.101] common <- intersect(names, old_names)
[23:32:31.101] added <- setdiff(names, old_names)
[23:32:31.101] removed <- setdiff(old_names, names)
[23:32:31.101] changed <- common[...future.oldEnvVars[common] !=
[23:32:31.101] envs[common]]
[23:32:31.101] NAMES <- toupper(changed)
[23:32:31.101] args <- list()
[23:32:31.101] for (kk in seq_along(NAMES)) {
[23:32:31.101] name <- changed[[kk]]
[23:32:31.101] NAME <- NAMES[[kk]]
[23:32:31.101] if (name != NAME && is.element(NAME, old_names))
[23:32:31.101] next
[23:32:31.101] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:31.101] }
[23:32:31.101] NAMES <- toupper(added)
[23:32:31.101] for (kk in seq_along(NAMES)) {
[23:32:31.101] name <- added[[kk]]
[23:32:31.101] NAME <- NAMES[[kk]]
[23:32:31.101] if (name != NAME && is.element(NAME, old_names))
[23:32:31.101] next
[23:32:31.101] args[[name]] <- ""
[23:32:31.101] }
[23:32:31.101] NAMES <- toupper(removed)
[23:32:31.101] for (kk in seq_along(NAMES)) {
[23:32:31.101] name <- removed[[kk]]
[23:32:31.101] NAME <- NAMES[[kk]]
[23:32:31.101] if (name != NAME && is.element(NAME, old_names))
[23:32:31.101] next
[23:32:31.101] args[[name]] <- ...future.oldEnvVars[[name]]
[23:32:31.101] }
[23:32:31.101] if (length(args) > 0)
[23:32:31.101] base::do.call(base::Sys.setenv, args = args)
[23:32:31.101] args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[23:32:31.101] }
[23:32:31.101] {
[23:32:31.101] if (base::length(...future.futureOptionsAdded) >
[23:32:31.101] 0L) {
[23:32:31.101] opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[23:32:31.101] base::names(opts) <- ...future.futureOptionsAdded
[23:32:31.101] base::options(opts)
[23:32:31.101] }
[23:32:31.101] {
[23:32:31.101] NULL
[23:32:31.101] options(future.plan = NULL)
[23:32:31.101] if (is.na(NA_character_))
[23:32:31.101] Sys.unsetenv("R_FUTURE_PLAN")
[23:32:31.101] else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[23:32:31.101] future::plan(...future.strategy.old, .cleanup = FALSE,
[23:32:31.101] .init = FALSE)
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] }
[23:32:31.101] })
[23:32:31.101] if (TRUE) {
[23:32:31.101] base::sink(type = "output", split = FALSE)
[23:32:31.101] if (TRUE) {
[23:32:31.101] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[23:32:31.101] }
[23:32:31.101] else {
[23:32:31.101] ...future.result["stdout"] <- base::list(NULL)
[23:32:31.101] }
[23:32:31.101] base::close(...future.stdout)
[23:32:31.101] ...future.stdout <- NULL
[23:32:31.101] }
[23:32:31.101] ...future.result$conditions <- ...future.conditions
[23:32:31.101] ...future.result$finished <- base::Sys.time()
[23:32:31.101] ...future.result
[23:32:31.101] }
[23:32:31.114] - Launch lazy future ... done
[23:32:31.114] run() for 'MiraiFuture' ... done
<FutureError: Failed to retrieve results from MiraiFuture (<none>). The mirai framework reports on error value 19>
Future UUID: <NA>
[1] 2
Number of workers: 2
Error: nworkers == all - 1L is not TRUE
Execution halted
Flavor: r-patched-linux-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
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-release-macos-arm64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: NOTE: 10, OK: 3
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-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
Current CRAN status: NOTE: 1, OK: 12
Version: 2.17.2
Check: package vignettes
Result: NOTE
Package has ‘vignettes’ subdirectory but apparently no vignettes.
Perhaps the ‘VignetteBuilder’ information is missing from the
DESCRIPTION file?
Flavor: r-release-macos-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: NOTE: 10, OK: 3
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-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
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: NOTE: 10, OK: 3
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-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