tests/testthat/test-plotGeneEffect.R

In acidgenomics/DepMapAnalysis: DepMap Analysis Utilities

context("plotGeneEffect")

test_that("GeneEffect", {
    for (object in list(crispr, rnai)) {
        genes <- rownames(object)[seq_len(5L)]
        p <- plotGeneEffect(
            object = object,
            genes = genes
        )
        expect_s3_class(p, "ggplot")
    }
})