Last updated on 2025-08-07 01:48:18 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 3.0.0 | 7.30 | 652.82 | 660.12 | OK | |
| r-devel-linux-x86_64-debian-gcc | 3.0.0 | 4.80 | 463.89 | 468.69 | OK | |
| r-devel-linux-x86_64-fedora-clang | 3.0.0 | 1034.17 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 3.0.0 | 1016.25 | OK | |||
| r-devel-windows-x86_64 | 3.0.0 | 7.00 | 615.00 | 622.00 | OK | |
| r-patched-linux-x86_64 | 3.0.0 | 7.76 | 839.73 | 847.49 | ERROR | |
| r-release-linux-x86_64 | 3.0.0 | 6.73 | 636.21 | 642.94 | OK | |
| r-release-macos-arm64 | 3.0.0 | 273.00 | OK | |||
| r-release-macos-x86_64 | 3.0.0 | 565.00 | OK | |||
| r-release-windows-x86_64 | 3.0.0 | 7.00 | 619.00 | 626.00 | OK | |
| r-oldrel-macos-arm64 | 3.0.0 | 239.00 | OK | |||
| r-oldrel-macos-x86_64 | 3.0.0 | 557.00 | OK | |||
| r-oldrel-windows-x86_64 | 3.0.0 | 10.00 | 772.00 | 782.00 | OK |
Version: 3.0.0
Check: tests
Result: ERROR
Running ‘spelling.R’ [0s/0s]
Running ‘testthat.R’ [13m/17m]
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")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 712 ]
══ 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 3 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(bGRaCDQXL = structure(integer(0), levels = c("FALSE", "TRUE"), class = "factor"), URjkcMhzc = structure(integer(0), levels = c("FALSE", "TRUE"), class = "factor"), RMbBqDhXU = logical(0), i = structure(integer(0), levels = c("FALSE", "TRUE"), class = "factor"), hSLuLqnin = character(0), c = numeric(0)), class = c("tbl_df", "tbl", "data.frame"), row.names = integer(0)), accuracy = 1, keep_rownames = "c", method = "DFD", exclude_class = "logical", store_cache = FALSE, skip_bijections = FALSE): duplicate column names: c>
Counterexample:
[[1]]
# A tibble: 0 x 6
# i 6 variables: bGRaCDQXL <fct>, URjkcMhzc <fct>, RMbBqDhXU <lgl>, i <fct>,
# hSLuLqnin <chr>, c <dbl>
[[2]]
[1] "c"
[[3]]
character(0)
[[4]]
[1] 0
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 712 ]
Error: Test failures
Execution halted
Flavor: r-patched-linux-x86_64