tests/testthat/test-elements_functions.R

test_that("Build Tag Filter Named List", {
    result1 <- build_tag_filter_list("Immune_Subtype", "TCGA")
    expect_equal(names(result1), c("C1", "C2", "C3", "C4", "C5", "C6"))
    expect_equal(unname(result1), c("C1", "C2", "C3", "C4", "C5", "C6"))
})
CRI-iAtlas/iatlas.modules2 documentation built on Dec. 19, 2024, 8:14 p.m.