tests/testthat/test-plotCountsPerFeature.R

In acidgenomics/minimalism: Acid Genomics Plot Functions and Themes

test_that("RSE, SCE", {
    for (object in list(rse, sce)) {
        p <- plotCountsPerFeature(object)
        expect_s3_class(p, "ggplot")
    }
})

geoms <- eval(formals(`plotCountsPerFeature,SE`)[["geom"]])
test_that("geom", {
    for (geom in geoms) {
        p <- plotCountsPerFeature(rse, geom = geom)
        expect_s3_class(p, "ggplot")
    }
})