Last updated on 2026-03-12 02:52:32 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 3.2.4 | 7.85 | 678.67 | 686.52 | OK | |
| r-devel-linux-x86_64-debian-gcc | 3.2.4 | 4.75 | 467.60 | 472.35 | OK | |
| r-devel-linux-x86_64-fedora-clang | 3.2.4 | 13.00 | 1055.23 | 1068.23 | OK | |
| r-devel-linux-x86_64-fedora-gcc | 3.2.4 | 12.00 | 1096.74 | 1108.74 | OK | |
| r-devel-macos-arm64 | 3.2.4 | 2.00 | 167.00 | 169.00 | OK | |
| r-devel-windows-x86_64 | 3.2.4 | 12.00 | 801.00 | 813.00 | ERROR | |
| r-patched-linux-x86_64 | 3.2.4 | 8.23 | 644.71 | 652.94 | OK | |
| r-release-linux-x86_64 | 3.2.4 | 6.72 | 644.45 | 651.17 | OK | |
| r-release-macos-arm64 | 3.1.0 | 2.00 | 179.00 | 181.00 | OK | |
| r-release-macos-x86_64 | 3.2.4 | 5.00 | 1241.00 | 1246.00 | OK | |
| r-release-windows-x86_64 | 3.2.4 | 10.00 | 671.00 | 681.00 | OK | |
| r-oldrel-macos-arm64 | 3.2.4 | 2.00 | 150.00 | 152.00 | NOTE | |
| r-oldrel-macos-x86_64 | 3.2.4 | 5.00 | 1164.00 | 1169.00 | NOTE | |
| r-oldrel-windows-x86_64 | 3.2.4 | 11.00 | 784.00 | 795.00 | NOTE |
Version: 3.2.4
Check: tests
Result: ERROR
Running 'spelling.R' [0s]
Running 'testthat.R' [575s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(autodb)
Attaching package: 'autodb'
The following object is masked from 'package:stats':
decompose
>
> test_check("autodb")
Saving _problems/test-discover-1045.R
[ FAIL 1 | WARN 0 | SKIP 1 | PASS 778 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• empty test (1): 'test-decompose.r:130:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-discover.r:971:7'): discover / for accuracy = 1, is invariant to:
- having a non-false keep_rownames vs. adding row names as first column
- method used
- excluding a class vs. excluding attributes in that class
- filtering by arguments (dependants/detset_limit) or by subsetting results
- whether partition is transferred between dependants
- whether bijections are skipped ──
Falsifiable after 19 tests, and 2 shrinks
<simpleError in (function (df, method = c("FDHitsSep", "FDHitsJoint", "DFD"), keep_rownames = FALSE, digits = getOption("digits"), exclude = character(), exclude_class = character(), dependants = names(df), detset_limit = ncol(df) - 1L, progress = FALSE, progress_file = "", skip_bijections = FALSE, accuracy = 1, full_cache = TRUE, store_cache = TRUE) { method <- match.arg(method) if (method == "FDHitsSep" && accuracy < 1) stop("FDHitsSep can not take accuracy < 1") if (method == "FDHitsJoint" && accuracy < 1) stop("FDHitsJoint can not take accuracy < 1") if (skip_bijections && accuracy < 1) warning("skipping bijections when accuracy < 1 can result in incorrect output") report <- reporter(progress, progress_file, new = TRUE) if (!isFALSE(keep_rownames)) { nm <- if (isTRUE(keep_rownames)) "row" else keep_rownames[[1]] df <- cbind(stats::setNames(data.frame(rownames(df)), nm), df) } n_cols <- ncol(df) if (n_cols == 0) return(functional_dependency(stats::setNames(list(), character()), attrs_order = character())) attr_names <- colnames(df) duplicates <- which(duplicated(attr_names)) if (length(duplicates) > 0) { dup_names <- unique(attr_names[duplicates]) sorted_dup_names <- dup_names[order(match(dup_names, attr_names))] stop("duplicate column names: ", toString(sorted_dup_names)) } if (any(!is.element(exclude, attr_names))) warning("there are attribute names in exclude not present in df") if (any(!is.element(dependants, attr_names))) warning("there are attribute names in dependants not present in df") dependants <- intersect(attr_names, dependants) dependants <- match(dependants, attr_names) valid_determinant_name <- !is.element(attr_names, exclude) valid_determinant_class <- !vapply(df, inherits, logical(1), exclude_class) valid_determinant_attrs_prefixing <- which(valid_determinant_name & valid_determinant_class) if (!is.na(digits)) { report(paste("formatting numerical/complex variables with", digits, "significant digits")) df[] <- lapply(df, format_if_float, digits = digits) } report("simplifying data types") df <- lookup_table(df) switch(method, DFD = DFD(df, accuracy = accuracy, full_cache = full_cache, store_cache = store_cache, skip_bijections = skip_bijections, determinants = valid_determinant_attrs_prefixing, dependants = dependants, detset_limit = detset_limit, report = report), FDHitsSep = FDHits(df, method = "Sep", determinants = valid_determinant_attrs_prefixing, dependants = dependants, detset_limit = detset_limit, report = report), FDHitsJoint = FDHits(df, method = "Joint", determinants = valid_determinant_attrs_prefixing, dependants = dependants, detset_limit = detset_limit, report = report))})(df = structure(list(KnhKRu = c(-0.000115179053274915, -2.49841533135623e-05, -2.49841533135623e-05), I.PrdSl = structure(c(NA, 2L, 1L), levels = c("FALSE", "TRUE"), class = "factor"), J = c(-4L, 0L, -1L)), class = "data.frame", row.names = c(NA, -3L)), accuracy = 1, keep_rownames = "J", method = "DFD", exclude_class = "logical", store_cache = FALSE, skip_bijections = FALSE): duplicate column names: J>
Counterexample:
[[1]]
KnhKRu I.PrdSl J
1 -1.151791e-04 <NA> -4
2 -2.498415e-05 TRUE 0
3 -2.498415e-05 FALSE -1
[[2]]
[1] "J"
[[3]]
character(0)
[[4]]
[1] 0
[ FAIL 1 | WARN 0 | SKIP 1 | PASS 778 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-windows-x86_64
Version: 3.2.4
Check: installed package size
Result: NOTE
installed size is 14.3Mb
sub-directories of 1Mb or more:
doc 13.7Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64