Last updated on 2020-01-20 01:50:53 CET.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| ACNE | 13 | ||
| aroma.affymetrix | 8 | 5 | |
| aroma.apd | 1 | 12 | |
| aroma.cn | 2 | 11 | |
| aroma.core | 13 | ||
| calmate | 13 | ||
| dChipIO | 13 | ||
| doFuture | 13 | ||
| future | 1 | 12 | |
| future.apply | 13 | ||
| future.BatchJobs | 13 | ||
| future.batchtools | 13 | ||
| future.callr | 13 | ||
| globals | 13 | ||
| listenv | 13 | ||
| matrixStats | 8 | 5 | |
| profmem | 13 | ||
| PSCBS | 13 | ||
| R.cache | 13 | ||
| R.devices | 1 | 12 | |
| R.filesets | 13 | ||
| R.huge | 13 | ||
| R.matlab | 13 | ||
| R.methodsS3 | 13 | ||
| R.oo | 13 | ||
| R.rsp | 2 | 11 | |
| R.utils | 13 | ||
| startup | 2 | 11 |
Current CRAN status: OK: 13
Current CRAN status: NOTE: 8, OK: 5
Version: 3.2.0
Check: installed package size
Result: NOTE
installed size is 5.8Mb
sub-directories of 1Mb or more:
R 2.3Mb
help 1.1Mb
testScripts 1.3Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 3.2.0
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘AffymetrixDataTestFiles’
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 1, OK: 12
Version: 0.6.0
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘affxparser’
Flavor: r-release-osx-x86_64
Version: 0.6.0
Check: Rd cross-references
Result: NOTE
Package unavailable to check Rd xrefs: ‘affxparser’
Flavor: r-release-osx-x86_64
Current CRAN status: NOTE: 2, OK: 11
Version: 1.6.1
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘GLAD’
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 13
Version: 3.2.0
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-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64
Version: 3.2.0
Check: package dependencies
Result: NOTE
Packages suggested but not available for checking:
'GLAD', 'sfit', 'expectile', 'HaarSeg', 'mpcbs'
Flavor: r-release-osx-x86_64
Version: 3.2.0
Check: Rd cross-references
Result: NOTE
Package unavailable to check Rd xrefs: ‘GLAD’
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Version: 3.2.0
Check: package dependencies
Result: NOTE
Packages suggested but not available for checking:
'sfit' 'expectile' 'HaarSeg' 'mpcbs'
Flavor: r-oldrel-windows-ix86+x86_64
Version: 3.2.0
Check: package dependencies
Result: NOTE
Packages suggested but not available for checking:
‘GLAD’ ‘sfit’ ‘expectile’ ‘HaarSeg’ ‘mpcbs’
Flavor: r-oldrel-osx-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 1, OK: 12
Version: 1.16.0
Check: tests
Result: ERROR
Running ‘000.sessionDetails.R’ [9s/10s]
Running ‘ClusterRegistry.R’ [4s/63s]
Running ‘Future-class.R’ [2s/25s]
Running ‘FutureError.R’
Running ‘FutureGlobals.R’
Running ‘FutureRegistry.R’
Running ‘as.cluster.R’ [2s/22s]
Running ‘availableCores.R’
Running ‘availableWorkers.R’
Running ‘backtrace.R’
Running ‘cluster-missing-future-pkg.R’
Running ‘cluster.R’ [9s/143s]
Running ‘constant.R’
Running ‘demo.R’ [12s/43s]
Running ‘dotdotdot.R’ [2s/26s]
Running ‘early-signaling.R’ [3s/48s]
Running ‘future,labels.R’
Running ‘future.R’
Running ‘futureAssign.R’ [3s/23s]
Running ‘futureAssign_OP.R’ [4s/27s]
Running ‘futureAssign_OP_with_environment.R’
Running ‘futureAssign_OP_with_listenv.R’
Running ‘futureCall.R’ [5s/38s]
Running ‘futureOf.R’
Running ‘futureOf_with_environment.R’
Running ‘futureOf_with_listenv.R’
Running ‘futures.R’ [23s/189s]
Running ‘globals,NSE.R’
Running ‘globals,formulas.R’ [5s/26s]
Running ‘globals,manual.R’
Running ‘globals,resolve.R’ [2s/24s]
Running ‘globals,subassignment.R’ [4s/26s]
Running ‘globals,toolarge.R’ [2s/25s]
Running ‘globals,tricky.R’ [9s/35s]
Running ‘globals,tricky_recursive.R’
Running ‘globalsOf,tweaks.R’
Running ‘immediateCondition.R’
Running ‘invalid-owner.R’ [2s/24s]
Running ‘makeClusterPSOCK.R’ [1s/11s]
Running ‘mandelbrot.R’
Running ‘mpi.R’
Running ‘multicore,multithreading.R’
Running ‘multicore.R’
Running ‘multiprocess.R’
Running ‘multisession.R’ [6s/70s]
Running ‘nbrOfWorkers.R’ [6s/85s]
Running ‘nested_futures,mc.cores.R’ [7s/148s]
Running ‘nested_futures.R’
Running ‘non-exportable,connections.R’ [2s/22s]
Running ‘objectSize.R’
Running ‘plan.R’ [9s/22s]
Running ‘relaying.R’
Running ‘remote.R’ [2s/22s]
Running ‘requestCore.R’
Running ‘requestNode.R’ [2s/37s]
Running ‘reserved-keyword-functions.R’
Running ‘resolve.R’
Running ‘resolved-non-blocking-test.R’ [4s/82s]
Running ‘rng.R’ [14s/42s]
Running ‘sequential.R’
Running ‘sessionDetails.R’
Running ‘startup.R’ [3s/46s]
Running ‘stdout.R’ [3s/26s]
Running ‘transparent.R’
Running ‘tweak.R’
Running ‘utils.R’ [9s/13s]
Running ‘uuid.R’
Running ‘whichIndex.R’
Running the tests in ‘tests/multicore,multithreading.R’ failed.
Complete output:
> source("incl/start.R")
[16:30:12.477] plan(): Setting new future strategy stack:
[16:30:12.479] List of future strategies:
[16:30:12.479] 1. sequential:
[16:30:12.479] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
[16:30:12.479] - tweaked: FALSE
[16:30:12.479] - call: future::plan("sequential")
[16:30:12.481] plan(): nbrOfWorkers() = 1
> library("listenv")
> plan(multicore)
[16:30:12.529] plan(): Setting new future strategy stack:
[16:30:12.530] List of future strategies:
[16:30:12.530] 1. multicore:
[16:30:12.530] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
[16:30:12.530] - tweaked: FALSE
[16:30:12.530] - call: plan(multicore)
[16:30:12.628] plan(): nbrOfWorkers() = 2
>
> message("*** multicore() and multi-threading ...")
*** multicore() and multi-threading ...
>
> message("supportsMulticore(): ", sQuote(supportsMulticore()))
supportsMulticore(): 'TRUE'
> message("availableCores('multicore'): ", sQuote(availableCores("multicore")))
availableCores('multicore'): '2'
> message("supports_omp_threads(): ", sQuote(supports_omp_threads()))
[16:30:12.700] supports_omp_threads() = TRUE
supports_omp_threads(): 'TRUE'
>
> if (supportsMulticore() && availableCores("multicore") >=2 && supports_omp_threads()) {
+ for (enable in c(TRUE, FALSE)) {
+ options(future.fork.multithreading.enable = enable)
+
+ message(sprintf("'future.fork.multithreading.enable' = %s ...", enable))
+
+ f <- future(RhpcBLASctl::omp_get_max_threads())
+ nthreads <- value(f)
+ cat(sprintf("Number of OpenMP threads in %s future: %d\n", sQuote(class(f)[1]), nthreads))
+
+ ## Assert that single-threading was set?
+ if (enable) {
+ stopifnot(enable && nthreads > 1L)
+ } else {
+ stopifnot(!enable && nthreads == 1L)
+ }
+
+ message(sprintf("'future.fork.multithreading.enable' = %s ... DONE", enable))
+ } ## for (enable ...)
+ } ## if (requireNamespace("RhpcBLASctl", ...)) {
[16:30:12.704] supports_omp_threads() = TRUE
'future.fork.multithreading.enable' = TRUE ...
[16:30:12.764] getGlobalsAndPackages() ...
[16:30:12.764] Searching for globals...
[16:30:12.789] - globals found: [1] '::'
[16:30:12.789] Searching for globals ... DONE
[16:30:12.790] Resolving globals: FALSE
[16:30:12.791]
[16:30:12.792]
[16:30:12.792] getGlobalsAndPackages() ... DONE
[16:30:12.807] Packages needed by the future expression (n = 0): <none>
[16:30:12.808] Packages needed by future strategies (n = 0): <none>
[16:30:12.815] {
[16:30:12.815] {
[16:30:12.815] ...future.startTime <- base::Sys.time()
[16:30:12.815] ...future.oldOptions <- base::options(future.startup.script = FALSE,
[16:30:12.815] future.globals.onMissing = "ignore", future.globals.maxSize = NULL,
[16:30:12.815] future.globals.method = NULL, future.globals.onMissing = NULL,
[16:30:12.815] future.globals.onReference = NULL, future.globals.resolve = NULL,
[16:30:12.815] future.resolve.recursive = NULL, width = 80L)
[16:30:12.815] {
[16:30:12.815] {
[16:30:12.815] {
[16:30:12.815] has_future <- base::requireNamespace("future",
[16:30:12.815] quietly = TRUE)
[16:30:12.815] version <- if (has_future)
[16:30:12.815] utils::packageVersion("future")
[16:30:12.815] else NULL
[16:30:12.815] if (!has_future || version < "1.8.0") {
[16:30:12.815] info <- base::c(r_version = base::gsub("R version ",
[16:30:12.815] "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)",
[16:30:12.815] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[16:30:12.815] os = base::paste(base::Sys.info()[base::c("sysname",
[16:30:12.815] "release", "version")], collapse = " "),
[16:30:12.815] hostname = base::Sys.info()[["nodename"]])
[16:30:12.815] info <- base::sprintf("%s: %s", base::names(info),
[16:30:12.815] info)
[16:30:12.815] info <- base::paste(info, collapse = "; ")
[16:30:12.815] if (!has_future) {
[16:30:12.815] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[16:30:12.815] info)
[16:30:12.815] }
[16:30:12.815] else {
[16:30:12.815] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[16:30:12.815] info, version)
[16:30:12.815] }
[16:30:12.815] base::stop(msg)
[16:30:12.815] }
[16:30:12.815] }
[16:30:12.815] ...future.mc.cores.old <- base::getOption("mc.cores")
[16:30:12.815] base::options(mc.cores = 1L)
[16:30:12.815] }
[16:30:12.815] future::plan("default", .cleanup = FALSE, .init = FALSE)
[16:30:12.815] }
[16:30:12.815] }
[16:30:12.815] if (base::is.na(TRUE)) {
[16:30:12.815] }
[16:30:12.815] else {
[16:30:12.815] if (TRUE) {
[16:30:12.815] ...future.stdout <- base::rawConnection(base::raw(0L),
[16:30:12.815] open = "w")
[16:30:12.815] }
[16:30:12.815] else {
[16:30:12.815] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[16:30:12.815] windows = "NUL", "/dev/null"), open = "w")
[16:30:12.815] }
[16:30:12.815] base::sink(...future.stdout, type = "output", split = FALSE)
[16:30:12.815] base::on.exit(if (!base::is.null(...future.stdout)) {
[16:30:12.815] base::sink(type = "output", split = FALSE)
[16:30:12.815] base::close(...future.stdout)
[16:30:12.815] }, add = TRUE)
[16:30:12.815] }
[16:30:12.815] ...future.frame <- base::sys.nframe()
[16:30:12.815] ...future.conditions <- base::list()
[16:30:12.815] ...future.rng <- base::globalenv()$.Random.seed
[16:30:12.815] ...future.result <- base::tryCatch({
[16:30:12.815] base::withCallingHandlers({
[16:30:12.815] ...future.value <- base::withVisible(base::local(RhpcBLASctl::omp_get_max_threads()))
[16:30:12.815] future::FutureResult(value = ...future.value$value,
[16:30:12.815] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[16:30:12.815] ...future.rng), started = ...future.startTime,
[16:30:12.815] version = "1.8")
[16:30:12.815] }, condition = base::local({
[16:30:12.815] c <- base::c
[16:30:12.815] inherits <- base::inherits
[16:30:12.815] invokeRestart <- base::invokeRestart
[16:30:12.815] length <- base::length
[16:30:12.815] list <- base::list
[16:30:12.815] seq.int <- base::seq.int
[16:30:12.815] signalCondition <- base::signalCondition
[16:30:12.815] sys.calls <- base::sys.calls
[16:30:12.815] Sys.time <- base::Sys.time
[16:30:12.815] `[[` <- base::`[[`
[16:30:12.815] `+` <- base::`+`
[16:30:12.815] `<<-` <- base::`<<-`
[16:30:12.815] sysCalls <- function(calls = sys.calls(), from = 1L) {
[16:30:12.815] calls[seq.int(from = from + 12L, to = length(calls) -
[16:30:12.815] 3L)]
[16:30:12.815] }
[16:30:12.815] function(cond) {
[16:30:12.815] if (inherits(cond, "error")) {
[16:30:12.815] ...future.conditions[[length(...future.conditions) +
[16:30:12.815] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[16:30:12.815] cond$call), timestamp = Sys.time(), signaled = 0L)
[16:30:12.815] signalCondition(cond)
[16:30:12.815] }
[16:30:12.815] else if (inherits(cond, "condition")) {
[16:30:12.815] signal <- FALSE && inherits(cond, character(0))
[16:30:12.815] ...future.conditions[[length(...future.conditions) +
[16:30:12.815] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[16:30:12.815] if (!signal) {
[16:30:12.815] muffleCondition <- function (cond)
[16:30:12.815] {
[16:30:12.815] inherits <- base::inherits
[16:30:12.815] invokeRestart <- base::invokeRestart
[16:30:12.815] muffled <- FALSE
[16:30:12.815] if (inherits(cond, "message")) {
[16:30:12.815] invokeRestart("muffleMessage")
[16:30:12.815] muffled <- TRUE
[16:30:12.815] }
[16:30:12.815] else if (inherits(cond, "warning")) {
[16:30:12.815] invokeRestart("muffleWarning")
[16:30:12.815] muffled <- TRUE
[16:30:12.815] }
[16:30:12.815] else if (inherits(cond, "condition")) {
[16:30:12.815] computeRestarts <- base::computeRestarts
[16:30:12.815] grepl <- base::grepl
[16:30:12.815] is.null <- base::is.null
[16:30:12.815] restarts <- computeRestarts(cond)
[16:30:12.815] for (restart in restarts) {
[16:30:12.815] name <- restart$name
[16:30:12.815] if (is.null(name))
[16:30:12.815] next
[16:30:12.815] if (!grepl("^muffle", name))
[16:30:12.815] next
[16:30:12.815] invokeRestart(restart)
[16:30:12.815] muffled <- TRUE
[16:30:12.815] break
[16:30:12.815] }
[16:30:12.815] }
[16:30:12.815] invisible(muffled)
[16:30:12.815] }
[16:30:12.815] muffleCondition(cond)
[16:30:12.815] }
[16:30:12.815] }
[16:30:12.815] }
[16:30:12.815] }))
[16:30:12.815] }, error = function(ex) {
[16:30:12.815] base::structure(base::list(value = NULL, visible = NULL,
[16:30:12.815] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[16:30:12.815] ...future.rng), version = "1.8"), class = "FutureResult")
[16:30:12.815] }, finally = {
[16:30:12.815] {
[16:30:12.815] {
[16:30:12.815] base::options(mc.cores = ...future.mc.cores.old)
[16:30:12.815] }
[16:30:12.815] future::plan(list(function (expr, envir = parent.frame(),
[16:30:12.815] substitute = TRUE, lazy = FALSE, seed = NULL,
[16:30:12.815] globals = TRUE, workers = availableCores(constraints = "multicore"),
[16:30:12.815] earlySignal = FALSE, label = NULL, ...)
[16:30:12.815] {
[16:30:12.815] if (substitute)
[16:30:12.815] expr <- substitute(expr)
[16:30:12.815] if (is.function(workers))
[16:30:12.815] workers <- workers()
[16:30:12.815] workers <- as.integer(workers)
[16:30:12.815] stop_if_not(is.finite(workers), workers >= 1L)
[16:30:12.815] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
[16:30:12.815] return(sequential(expr, envir = envir, substitute = FALSE,
[16:30:12.815] lazy = lazy, seed = seed, globals = globals,
[16:30:12.815] local = TRUE, label = label, ...))
[16:30:12.815] }
[16:30:12.815] oopts <- options(mc.cores = workers)
[16:30:12.815] on.exit(options(oopts))
[16:30:12.815] future <- MulticoreFuture(expr = expr, envir = envir,
[16:30:12.815] substitute = FALSE, lazy = lazy, seed = seed,
[16:30:12.815] globals = globals, workers = workers, earlySignal = earlySignal,
[16:30:12.815] label = label, ...)
[16:30:12.815] if (!future$lazy)
[16:30:12.815] future <- run(future)
[16:30:12.815] invisible(future)
[16:30:12.815] }), .cleanup = FALSE, .init = FALSE)
[16:30:12.815] }
[16:30:12.815] base::options(...future.oldOptions)
[16:30:12.815] })
[16:30:12.815] Sys.time
[16:30:12.815] if (base::is.na(TRUE)) {
[16:30:12.815] }
[16:30:12.815] else {
[16:30:12.815] base::sink(type = "output", split = FALSE)
[16:30:12.815] if (TRUE) {
[16:30:12.815] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[16:30:12.815] }
[16:30:12.815] else {
[16:30:12.815] ...future.result["stdout"] <- base::list(NULL)
[16:30:12.815] }
[16:30:12.815] base::close(...future.stdout)
[16:30:12.815] ...future.stdout <- NULL
[16:30:12.815] }
[16:30:12.815] ...future.result$conditions <- ...future.conditions
[16:30:12.815] ...future.result
[16:30:12.815] }
[16:30:12.821] requestCore(): workers = 2
[16:30:12.831] MulticoreFuture started
[16:30:12.858] plan(): Setting new future strategy stack:
[16:30:12.859] List of future strategies:
[16:30:12.859] 1. sequential:
[16:30:12.859] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
[16:30:12.859] - tweaked: FALSE
[16:30:12.859] - call: NULL
[16:30:12.861] plan(): nbrOfWorkers() = 1
[16:30:12.867] plan(): Setting new future strategy stack:
[16:30:12.868] List of future strategies:
[16:30:12.868] 1. multicore:
[16:30:12.868] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
[16:30:12.868] - tweaked: FALSE
[16:30:12.868] - call: plan(multicore)
[16:30:12.871] plan(): nbrOfWorkers() = 2
Number of OpenMP threads in 'MulticoreFuture' future: 24
'future.fork.multithreading.enable' = TRUE ... DONE
'future.fork.multithreading.enable' = FALSE ...
[16:30:12.889] getGlobalsAndPackages() ...
[16:30:12.889] Searching for globals...
[16:30:12.892] - globals found: [1] '::'
[16:30:12.892] Searching for globals ... DONE
[16:30:12.892] Resolving globals: FALSE
[16:30:12.893]
[16:30:12.894]
[16:30:12.894] getGlobalsAndPackages() ... DONE
[16:30:12.895] - Evaluate future in single-threaded mode ...
[16:30:12.895] supports_omp_threads() = TRUE
[16:30:12.896] - Force single-threaded processing for OpenMP
[16:30:12.896] - Evaluate future in single-threaded mode ... DONE
[16:30:12.899] Packages needed by the future expression (n = 0): <none>
[16:30:12.900] Packages needed by future strategies (n = 0): <none>
[16:30:12.907] {
[16:30:12.907] {
[16:30:12.907] ...future.startTime <- base::Sys.time()
[16:30:12.907] ...future.oldOptions <- base::options(future.startup.script = FALSE,
[16:30:12.907] future.globals.onMissing = "ignore", future.globals.maxSize = NULL,
[16:30:12.907] future.globals.method = NULL, future.globals.onMissing = NULL,
[16:30:12.907] future.globals.onReference = NULL, future.globals.resolve = NULL,
[16:30:12.907] future.resolve.recursive = NULL, width = 80L)
[16:30:12.907] {
[16:30:12.907] {
[16:30:12.907] {
[16:30:12.907] has_future <- base::requireNamespace("future",
[16:30:12.907] quietly = TRUE)
[16:30:12.907] version <- if (has_future)
[16:30:12.907] utils::packageVersion("future")
[16:30:12.907] else NULL
[16:30:12.907] if (!has_future || version < "1.8.0") {
[16:30:12.907] info <- base::c(r_version = base::gsub("R version ",
[16:30:12.907] "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)",
[16:30:12.907] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
[16:30:12.907] os = base::paste(base::Sys.info()[base::c("sysname",
[16:30:12.907] "release", "version")], collapse = " "),
[16:30:12.907] hostname = base::Sys.info()[["nodename"]])
[16:30:12.907] info <- base::sprintf("%s: %s", base::names(info),
[16:30:12.907] info)
[16:30:12.907] info <- base::paste(info, collapse = "; ")
[16:30:12.907] if (!has_future) {
[16:30:12.907] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
[16:30:12.907] info)
[16:30:12.907] }
[16:30:12.907] else {
[16:30:12.907] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
[16:30:12.907] info, version)
[16:30:12.907] }
[16:30:12.907] base::stop(msg)
[16:30:12.907] }
[16:30:12.907] }
[16:30:12.907] ...future.mc.cores.old <- base::getOption("mc.cores")
[16:30:12.907] base::options(mc.cores = 1L)
[16:30:12.907] }
[16:30:12.907] future::plan("default", .cleanup = FALSE, .init = FALSE)
[16:30:12.907] }
[16:30:12.907] }
[16:30:12.907] if (base::is.na(TRUE)) {
[16:30:12.907] }
[16:30:12.907] else {
[16:30:12.907] if (TRUE) {
[16:30:12.907] ...future.stdout <- base::rawConnection(base::raw(0L),
[16:30:12.907] open = "w")
[16:30:12.907] }
[16:30:12.907] else {
[16:30:12.907] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
[16:30:12.907] windows = "NUL", "/dev/null"), open = "w")
[16:30:12.907] }
[16:30:12.907] base::sink(...future.stdout, type = "output", split = FALSE)
[16:30:12.907] base::on.exit(if (!base::is.null(...future.stdout)) {
[16:30:12.907] base::sink(type = "output", split = FALSE)
[16:30:12.907] base::close(...future.stdout)
[16:30:12.907] }, add = TRUE)
[16:30:12.907] }
[16:30:12.907] ...future.frame <- base::sys.nframe()
[16:30:12.907] ...future.conditions <- base::list()
[16:30:12.907] ...future.rng <- base::globalenv()$.Random.seed
[16:30:12.907] ...future.result <- base::tryCatch({
[16:30:12.907] base::withCallingHandlers({
[16:30:12.907] ...future.value <- base::withVisible(base::local(RhpcBLASctl::omp_get_max_threads()))
[16:30:12.907] future::FutureResult(value = ...future.value$value,
[16:30:12.907] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
[16:30:12.907] ...future.rng), started = ...future.startTime,
[16:30:12.907] version = "1.8")
[16:30:12.907] }, condition = base::local({
[16:30:12.907] c <- base::c
[16:30:12.907] inherits <- base::inherits
[16:30:12.907] invokeRestart <- base::invokeRestart
[16:30:12.907] length <- base::length
[16:30:12.907] list <- base::list
[16:30:12.907] seq.int <- base::seq.int
[16:30:12.907] signalCondition <- base::signalCondition
[16:30:12.907] sys.calls <- base::sys.calls
[16:30:12.907] Sys.time <- base::Sys.time
[16:30:12.907] `[[` <- base::`[[`
[16:30:12.907] `+` <- base::`+`
[16:30:12.907] `<<-` <- base::`<<-`
[16:30:12.907] sysCalls <- function(calls = sys.calls(), from = 1L) {
[16:30:12.907] calls[seq.int(from = from + 12L, to = length(calls) -
[16:30:12.907] 3L)]
[16:30:12.907] }
[16:30:12.907] function(cond) {
[16:30:12.907] if (inherits(cond, "error")) {
[16:30:12.907] ...future.conditions[[length(...future.conditions) +
[16:30:12.907] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
[16:30:12.907] cond$call), timestamp = Sys.time(), signaled = 0L)
[16:30:12.907] signalCondition(cond)
[16:30:12.907] }
[16:30:12.907] else if (inherits(cond, "condition")) {
[16:30:12.907] signal <- FALSE && inherits(cond, character(0))
[16:30:12.907] ...future.conditions[[length(...future.conditions) +
[16:30:12.907] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[16:30:12.907] if (!signal) {
[16:30:12.907] muffleCondition <- function (cond)
[16:30:12.907] {
[16:30:12.907] inherits <- base::inherits
[16:30:12.907] invokeRestart <- base::invokeRestart
[16:30:12.907] muffled <- FALSE
[16:30:12.907] if (inherits(cond, "message")) {
[16:30:12.907] invokeRestart("muffleMessage")
[16:30:12.907] muffled <- TRUE
[16:30:12.907] }
[16:30:12.907] else if (inherits(cond, "warning")) {
[16:30:12.907] invokeRestart("muffleWarning")
[16:30:12.907] muffled <- TRUE
[16:30:12.907] }
[16:30:12.907] else if (inherits(cond, "condition")) {
[16:30:12.907] computeRestarts <- base::computeRestarts
[16:30:12.907] grepl <- base::grepl
[16:30:12.907] is.null <- base::is.null
[16:30:12.907] restarts <- computeRestarts(cond)
[16:30:12.907] for (restart in restarts) {
[16:30:12.907] name <- restart$name
[16:30:12.907] if (is.null(name))
[16:30:12.907] next
[16:30:12.907] if (!grepl("^muffle", name))
[16:30:12.907] next
[16:30:12.907] invokeRestart(restart)
[16:30:12.907] muffled <- TRUE
[16:30:12.907] break
[16:30:12.907] }
[16:30:12.907] }
[16:30:12.907] invisible(muffled)
[16:30:12.907] }
[16:30:12.907] muffleCondition(cond)
[16:30:12.907] }
[16:30:12.907] }
[16:30:12.907] }
[16:30:12.907] }))
[16:30:12.907] }, error = function(ex) {
[16:30:12.907] base::structure(base::list(value = NULL, visible = NULL,
[16:30:12.907] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
[16:30:12.907] ...future.rng), version = "1.8"), class = "FutureResult")
[16:30:12.907] }, finally = {
[16:30:12.907] {
[16:30:12.907] {
[16:30:12.907] base::options(mc.cores = ...future.mc.cores.old)
[16:30:12.907] }
[16:30:12.907] future::plan(list(function (expr, envir = parent.frame(),
[16:30:12.907] substitute = TRUE, lazy = FALSE, seed = NULL,
[16:30:12.907] globals = TRUE, workers = availableCores(constraints = "multicore"),
[16:30:12.907] earlySignal = FALSE, label = NULL, ...)
[16:30:12.907] {
[16:30:12.907] if (substitute)
[16:30:12.907] expr <- substitute(expr)
[16:30:12.907] if (is.function(workers))
[16:30:12.907] workers <- workers()
[16:30:12.907] workers <- as.integer(workers)
[16:30:12.907] stop_if_not(is.finite(workers), workers >= 1L)
[16:30:12.907] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
[16:30:12.907] return(sequential(expr, envir = envir, substitute = FALSE,
[16:30:12.907] lazy = lazy, seed = seed, globals = globals,
[16:30:12.907] local = TRUE, label = label, ...))
[16:30:12.907] }
[16:30:12.907] oopts <- options(mc.cores = workers)
[16:30:12.907] on.exit(options(oopts))
[16:30:12.907] future <- MulticoreFuture(expr = expr, envir = envir,
[16:30:12.907] substitute = FALSE, lazy = lazy, seed = seed,
[16:30:12.907] globals = globals, workers = workers, earlySignal = earlySignal,
[16:30:12.907] label = label, ...)
[16:30:12.907] if (!future$lazy)
[16:30:12.907] future <- run(future)
[16:30:12.907] invisible(future)
[16:30:12.907] }), .cleanup = FALSE, .init = FALSE)
[16:30:12.907] }
[16:30:12.907] base::options(...future.oldOptions)
[16:30:12.907] })
[16:30:12.907] Sys.time
[16:30:12.907] if (base::is.na(TRUE)) {
[16:30:12.907] }
[16:30:12.907] else {
[16:30:12.907] base::sink(type = "output", split = FALSE)
[16:30:12.907] if (TRUE) {
[16:30:12.907] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[16:30:12.907] }
[16:30:12.907] else {
[16:30:12.907] ...future.result["stdout"] <- base::list(NULL)
[16:30:12.907] }
[16:30:12.907] base::close(...future.stdout)
[16:30:12.907] ...future.stdout <- NULL
[16:30:12.907] }
[16:30:12.907] ...future.result$conditions <- ...future.conditions
[16:30:12.907] ...future.result
[16:30:12.907] }
[16:30:12.913] requestCore(): workers = 2
[16:30:12.918] MulticoreFuture started
[16:30:12.932] plan(): Setting new future strategy stack:
[16:30:12.933] List of future strategies:
[16:30:12.933] 1. sequential:
[16:30:12.933] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
[16:30:12.933] - tweaked: FALSE
[16:30:12.933] - call: NULL
[16:30:12.935] plan(): nbrOfWorkers() = 1
[16:30:12.960] plan(): Setting new future strategy stack:
[16:30:12.961] List of future strategies:
[16:30:12.961] 1. multicore:
[16:30:12.961] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
[16:30:12.961] - tweaked: FALSE
[16:30:12.961] - call: plan(multicore)
[16:30:12.964] plan(): nbrOfWorkers() = 2
Number of OpenMP threads in 'MulticoreFuture' future: 24
Error: !enable && nthreads == 1L is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
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: 8, OK: 5
Version: 0.55.0
Check: installed package size
Result: NOTE
installed size is 11.3Mb
sub-directories of 1Mb or more:
libs 10.5Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 1, OK: 12
Version: 2.16.1
Check: tests
Result: ERROR
Running ‘DevEvalFileProduct.R’
Running ‘DevEvalProduct.R’
Running ‘capabilitiesX11.R’
Running ‘capturePlot.R’
Running ‘dataURI.R’
Running ‘devAll.R’
Running ‘devDump.R’
Running ‘devEqualTypes.R’
Running ‘devEval,error.R’
Running ‘devEval.R’ [6s/22s]
Running ‘devIsInteractive.R’
Running ‘devIsOpen.R’
Running ‘devList.R’
Running ‘devListIndexOf.R’
Running ‘devNew.R’
Running ‘devOptions.R’
Running ‘devSet.R’
Running ‘devTypeName.R’
Running ‘favicon.R’
Running ‘toNNN.R’
Running ‘withPar.R’
Running the tests in ‘tests/devEval.R’ failed.
Complete output:
> message("*** devEval() ...")
*** devEval() ...
>
> library("R.devices")
R.devices v2.16.1 successfully loaded. See ?R.devices for help.
> library("R.utils")
Loading required package: R.oo
Loading required package: R.methodsS3
R.methodsS3 v1.7.1 (2016-02-15) successfully loaded. See ?R.methodsS3 for help.
R.oo v1.23.0 successfully loaded. See ?R.oo for help.
Attaching package: 'R.oo'
The following object is masked from 'package:R.methodsS3':
throw
The following objects are masked from 'package:methods':
getClasses, getMethods
The following objects are masked from 'package:base':
attach, detach, load, save
R.utils v2.9.2 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, inherits, isOpen, nullfile, parse,
warnings
> graphics.off()
>
> png <- grDevices::png
> jpeg <- grDevices::jpeg
> tiff <- grDevices::tiff
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Various types of single and multiple device outputs
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> message("*** devEval() - single and multiple device outputs ...")
*** devEval() - single and multiple device outputs ...
>
> types <- list(
+ character(0L),
+ "png",
+ "jpg",
+ "nulldev",
+ c("png", "png", "jpeg"),
+ "png,nulldev,pdf"
+ )
>
> for (type in types) {
+ cat("Device types: ", paste(sQuote(type), collapse=", "), "\n", sep="")
+ devList0 <- devList()
+ res <- devEval(type, name="multi", aspectRatio=2/3, {
+ plot(1:10)
+ })
+ print(res)
+ stopifnot(length(res) == length(unlist(strsplit(type, split=","))))
+ stopifnot(all.equal(devList(), devList0))
+ }
Device types:
character(0)
Device types: 'png'
[1] "figures/multi.png"
Device types: 'jpg'
[1] "figures/multi.jpg"
Device types: 'nulldev'
[1] "/dev/null"
Device types: 'png', 'png', 'jpeg'
$png
[1] "figures/multi.png"
$png
[1] "figures/multi.png"
$jpeg
[1] "figures/multi.jpg"
Device types: 'png,nulldev,pdf'
$png
[1] "figures/multi.png"
$nulldev
[1] "/dev/null"
$pdf
[1] "figures/multi.pdf"
>
> # Sanity checks
> print(devList())
named integer(0)
> stopifnot(length(devList()) == 0L)
>
> message("*** devEval() - single and multiple device outputs ... DONE")
*** devEval() - single and multiple device outputs ... DONE
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # With 'initially' and 'finally' expression
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> message("*** devEval() - initially and finally ...")
*** devEval() - initially and finally ...
>
> devList0 <- devList()
> devEval(c("png", "jpg"), name="count", {
+ plot(1:10)
+ count <- count + 1L
+ }, initially = {
+ # Emulate an overhead
+ cat("Initiate...")
+ count <- 0L
+ Sys.sleep(1)
+ cat("done\n")
+ }, finally = {
+ cat("Number of image files created: ", count, "\n", sep="")
+ })
Initiate...done
Number of image files created: 2
$png
[1] "figures/count.png"
$jpeg
[1] "figures/count.jpg"
> stopifnot(all.equal(devList(), devList0))
>
> # Sanity checks
> print(devList())
named integer(0)
> stopifnot(length(devList()) == 0L)
>
> message("*** devEval() - initially and finally ... DONE")
*** devEval() - initially and finally ... DONE
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Try several devices until first successful device is found
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> message("*** devEval() - first successful device ...")
*** devEval() - first successful device ...
>
> types <- list(
+ "png|jpg|pdf", # PNG, JPG and then PDF
+ "dummy|png|jpg|pdf", # "Non-existing", PNG, JPG and then PDF
+ "quartz|x11|windows", # Any interactive device (depending on OS)
+ c("png|jpg", "x11|windows"), # PNG or JPG and then x11 or windows
+ "eps|postscript|pdf", # EPS, Postscript or PDF
+ "jpeg2|jpeg", # JPEG via bitmap() or via jpeg()
+ "png,jpg|x11|windows", # == c("png", "jpg|x11|windows")
+ "nulldev|jpeg" # NULL devices, otherwise jpeg
+ )
>
> if (!capabilitiesX11()) {
+ message("Skipping test for X11")
+ types <- lapply(types, FUN=function(x) gsub("x11|", "", x, fixed=TRUE))
+ }
>
> devList0 <- devList()
>
> for (type in types) {
+ printf("Any of %s\n", paste(sQuote(type), collapse=" + "))
+
+ # Use try-catch in case not supported on some test systems
+ tryCatch({
+ res <- devEval(type, name="any", aspectRatio=2/3, scale=1.2, {
+ plot(100:1)
+ })
+ printf("Result: %s (%s)\n\n", sQuote(res), attr(res, "type"))
+
+ if (length(devList()) > 0) devOff()
+ }, error = function(ex) {
+ printf("Failed: %s\n\n", sQuote(ex$message))
+ })
+ } # for (type ...)
Any of 'png|jpg|pdf'
Any of 'dummy|png|jpg|pdf'
Any of 'quartz|x11|windows'
Failed: 'Failed to open graphics device: quartz'
Any of 'png|jpg' + 'x11|windows'
Any of 'eps|postscript|pdf'
Any of 'jpeg2|jpeg'
Any of 'png,jpg|x11|windows'
*** caught segfault ***
address f7fb6018, cause 'memory not mapped'
Traceback:
1: .External2(C_X11, d$display, d$width, d$height, d$pointsize, d$gamma, d$colortype, d$maxcubesize, d$bg, d$canvas, d$fonts, NA_integer_, d$xpos, d$ypos, d$title, type, antialias, d$family)
2: (function (display = "", width, height, pointsize, gamma, bg, canvas, fonts, family, xpos, ypos, title, type, antialias, ...) { if (display != "XImage") { check <- Sys.getenv("_R_CHECK_SCREEN_DEVICE_", "") msg <- "screen devices should not be used in examples etc" if (identical(check, "stop")) stop(msg, domain = NA) else if (identical(check, "warn")) warning(msg, immediate. = TRUE, noBreaks. = TRUE, domain = NA) } if (display == "" && .Platform$GUI == "AQUA" && is.na(Sys.getenv("DISPLAY", NA))) Sys.setenv(DISPLAY = ":0") new <- list() if (!missing(display)) new$display <- display if (!missing(width)) new$width <- width if (!missing(height)) new$height <- height if (!missing(gamma)) new$gamma <- gamma if (!missing(pointsize)) new$pointsize <- pointsize if (!missing(bg)) new$bg <- bg if (!missing(canvas)) new$canvas <- canvas if (!missing(xpos)) new$xpos <- xpos if (!missing(ypos)) new$ypos <- ypos if (!missing(title)) new$title <- title if (!checkIntFormat(new$title)) stop("invalid 'title'") if (!missing(type)) { new$type <- match.arg(type, c("Xlib", "cairo", "nbcairo", "dbcairo")) if (!capabilities("cairo") && type != "Xlib") warning("cairo-based types are not supported on this build - using \"Xlib\"") } if (!missing(family)) new$family <- family if (!missing(fonts)) new$fonts <- fonts if (!missing(antialias) && type != "Xlib") new$antialias <- match.arg(antialias, aa.cairo) d <- check.options(new, name.opt = ".X11.Options", envir = .X11env) if (d$type == "Xlib" && !missing(family)) { fns <- X11Fonts() if (!family %in% names(fns)) stop("unknown family for X11(type = \"XLib\")") d$fonts[1] <- fns[[family]] } type <- if (capabilities("cairo")) switch(d$type, cairo = 1L, nbcairo = 2L, dbcairo = 3L, 0L) else 0L if (display == "XImage") type <- 0L antialias <- match(d$antialias, aa.cairo) if (grepl("darwin", R.version$os)) check_for_XQuartz() .External2(C_X11, d$display, d$width, d$height, d$pointsize, d$gamma, d$colortype, d$maxcubesize, d$bg, d$canvas, d$fonts, NA_integer_, d$xpos, d$ypos, d$title, type, antialias, d$family) invisible()})()
3: do.call(typeT, args = args)
4: devNew(type, which = fullname, ..., .allowUnknownArgs = .allowUnknownArgs)
5: devEval(type = type, expr = expr, initially = NULL, finally = NULL, envir = envir, name = nameOrg, tags = tags, sep = sep, ..., ext = ext, filename = filename, path = path, field = field, onIncomplete = onIncomplete, force = force, .exprAsIs = TRUE, .allowUnknownArgs = TRUE)
6: FUN(X[[i]], ...)
7: lapply(types, FUN = function(type) { devEval(type = type, expr = expr, initially = NULL, finally = NULL, envir = envir, name = nameOrg, tags = tags, sep = sep, ..., ext = ext, filename = filename, path = path, field = field, onIncomplete = onIncomplete, force = force, .exprAsIs = TRUE, .allowUnknownArgs = TRUE)})
8: devEval(type, name = "any", aspectRatio = 2/3, scale = 1.2, { plot(100:1)})
9: doTryCatch(return(expr), name, parentenv, handler)
10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
11: tryCatchList(expr, classes, parentenv, handlers)
12: tryCatch({ res <- devEval(type, name = "any", aspectRatio = 2/3, scale = 1.2, { plot(100:1) }) printf("Result: %s (%s)\n\n", sQuote(res), attr(res, "type")) if (length(devList()) > 0) devOff()}, error = function(ex) { printf("Failed: %s\n\n", sQuote(ex$message))})
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-patched-solaris-x86
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: 2, OK: 11
Version: 0.43.2
Check: dependencies in R code
Result: NOTE
No protocol specified
No protocol specified
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: OK: 13
Current CRAN status: NOTE: 2, OK: 11
Version: 0.14.0
Check: dependencies in R code
Result: NOTE
No protocol specified
No protocol specified
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64