CRAN Package Check Results for Package iSTATS

Last updated on 2026-10-17 11:51:21 CEST.

Flavor	Version	Tinstall	Tcheck	Ttotal	Status	Flags
r-devel-linux-x86_64-debian-clang	1.8	9.68	113.20	122.88	OK
r-devel-linux-x86_64-debian-gcc	1.8	6.99	81.75	88.74	OK
r-devel-linux-x86_64-fedora-clang	1.8			81.69	OK
r-devel-linux-x86_64-fedora-gcc	1.8			79.89	OK
r-devel-windows-x86_64	1.8	14.00	127.00	141.00	OK
r-patched-linux-x86_64	1.8	9.62	108.85	118.47	OK
r-release-linux-x86_64	1.7	8.29	61.91	70.20	OK
r-release-macos-arm64	1.8	3.00	21.00	24.00	ERROR
r-release-macos-x86_64	1.8	8.00	184.00	192.00	OK
r-release-windows-x86_64	1.8	16.00	119.00	135.00	OK
r-oldrel-macos-arm64	1.8	4.00	34.00	38.00	ERROR
r-oldrel-macos-x86_64	1.8	7.00	101.00	108.00	OK
r-oldrel-windows-x86_64	1.8	19.00	149.00	168.00	OK

Additional issues

linux-arm64 M1mac

Check Details

Version: 1.8
Check: tests
Result: ERROR Running ‘alignment-regions.R’ [1s/1s] Running ‘app-helpers.R’ [1s/1s] Running the tests in ‘tests/app-helpers.R’ failed. Complete output: > library(iSTATS) Loading required package: shinyBS Loading required package: shinyWidgets > > app_functions <- system.file("app", "functions.R", package = "iSTATS") > stopifnot(nzchar(app_functions)) > helpers <- new.env(parent = globalenv()) > sys.source(app_functions, envir = helpers) > > set.seed(42) > x <- matrix(rnorm(120), 12, 10) > x[, 2] <- -x[, 1] > cases <- list( + random = x, + ties = round(x), + single = x[, 1, drop = FALSE], + one_sample = x[1, , drop = FALSE], + constant = cbind(x, 1), + missing = replace(x, c(1, 20), NA_real_) + ) > > for (m in cases) { + for (method in c("pearson", "spearman")) { + reference <- suppressWarnings(stats::cor(m, method = method)) + for (driver in seq_len(ncol(m))) { + actual <- suppressWarnings(helpers$driver_correlations(m, driver)[[method]]) + stopifnot(isTRUE(all.equal(actual, unname(reference[driver, ]), + tolerance = 1e-14))) + } + } + } > > # The vectorized Shapiro-Wilk and rank helpers must equal, bit for bit, one > # shapiro.test()/rank() call per column: small n branches, ties, constant and > # tiny-range columns, missing/infinite values and invalid sample sizes. > reference_p <- function(m) vapply(seq_len(ncol(m)), function(h) + tryCatch(stats::shapiro.test(m[, h])$p.value, error = function(e) NA_real_), 0) > reference_ranks <- function(m) + if (nrow(m) > 1L) apply(m, 2L, rank, na.last = "keep") else row(m) > shapiro_cases <- list(matrix(rnorm(2 * 4), 2), matrix(rnorm(5001 * 2), 5001)) > for (n in c(3:12, 20, 52)) { + y <- matrix(rexp(n * 40), n) + y[, 2] <- round(y[, 2]) + y[, 3] <- 1 + y[, 4] <- y[, 4] * 1e-12 + 5 + y[, 5] <- c(rep(0, n - 1), 1) + y[, 6] <- -0 + shapiro_cases[[length(shapiro_cases) + 1L]] <- y + } > y <- matrix(rnorm(52 * 8), 52, dimnames = list(NULL, paste0("c", 1:8))) > y[1, 1] <- NA; y[2, 2] <- Inf; y[, 3] <- NaN; y[1:50, 4] <- NA > shapiro_cases[[length(shapiro_cases) + 1L]] <- y > default_blocks <- helpers$.column_blocks > for (block_size in c(8192L, 3L)) { # one block, and many uneven blocks + helpers$.column_blocks <- function(columns, size = block_size) + default_blocks(columns, size) + for (m in c(cases, shapiro_cases)) { + stopifnot(identical(helpers$.shapiro_p_values(m), reference_p(m)), + identical(helpers$.spearman_ranks(m), reference_ranks(m))) + } + } Error: identical(helpers$.shapiro_p_values(m), reference_p(m)) is not TRUE Execution halted Flavors: r-release-macos-arm64, r-oldrel-macos-arm64