Last updated on 2026-04-01 01:53:09 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 3.2.4 | 7.45 | 665.54 | 672.99 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 3.2.4 | 4.61 | 474.20 | 478.81 | OK | |
| r-devel-linux-x86_64-fedora-clang | 3.2.4 | 13.00 | 1090.77 | 1103.77 | OK | |
| r-devel-linux-x86_64-fedora-gcc | 3.2.4 | 12.00 | 1057.65 | 1069.65 | OK | |
| r-devel-macos-arm64 | 3.2.4 | 2.00 | 158.00 | 160.00 | OK | |
| r-devel-windows-x86_64 | 3.2.4 | 11.00 | 664.00 | 675.00 | OK | |
| r-patched-linux-x86_64 | 3.2.4 | 7.43 | 627.03 | 634.46 | OK | |
| r-release-linux-x86_64 | 3.2.4 | 6.45 | 638.05 | 644.50 | 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 | 9.00 | 652.00 | 661.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 | 14.00 | 790.00 | 804.00 | NOTE |
Version: 3.2.4
Check: tests
Result: ERROR
Running ‘spelling.R’ [0s/0s]
Running ‘testthat.R’ [463s/565s]
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 9 tests, and 1 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(q = structure(c(NA, 1L), levels = c("FALSE", "TRUE"), class = "factor")), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame")), accuracy = 1, keep_rownames = "q", method = "DFD", exclude_class = "logical", store_cache = FALSE, skip_bijections = FALSE): duplicate column names: q>
Counterexample:
[[1]]
# A tibble: 2 x 1
q
<fct>
1 <NA>
2 FALSE
[[2]]
[1] "q"
[[3]]
character(0)
[[4]]
[1] 0
[ FAIL 1 | WARN 0 | SKIP 1 | PASS 778 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
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