tests/testthat/test-driver_associations_univariate_functions.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

    # test_that("Build Univariate Driver Results Tibble", {
    #     result1 <- build_ud_results_tbl("Immune Subtype", 2, 50, 50)
    #     expect_named(
    #         result1,
    #         c("p_value", "fold_change", "log10_p_value", "gene_id", "tag_id",
    #           "log10_fold_change", "mutation_code_id", "gene", "mutation_code",
    #           "group", "label"
    #         )
    #     )
    # })
    #
    # test_that("Build Univariate Driver Violin Tibble", {
    #     result1 <- build_ud_driver_violin_tbl(1, 1, 1, 1)
    #     expect_named(result1, c("x", "y"))
    # })