tests/testthat/test-cellsPerGeneFusion.R

test_that("cellsPerGeneFusion", {
    object <- celloFull
    df <- cellsPerGeneFusion(object)
    expect_s4_class(df, "DFrame")
    expect_null(cellsPerGeneFusion(object, minCells = nrow(object) + 1L))
})
acidgenomics/r-cellosaurus documentation built on March 12, 2024, 2:37 p.m.