longtests/testthat/test-tnbc.R

test_that("tnbc", {
    object <- celloFull
    skip_if_not(identical(
        x = metadata(object)[["dataVersion"]],
        y = dataVersion
    ))
    expect_length(tnbc(object), 161L)
})
acidgenomics/r-cellosaurus documentation built on March 12, 2024, 2:37 p.m.