CRAN Package Check Results for Maintainer ‘Mark Webster <markwebster204 at yahoo.co.uk>’

Last updated on 2025-08-09 09:50:10 CEST.

Package	ERROR	OK
autodb	1	12

Package autodb

Current CRAN status: ERROR: 1, OK: 12

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