tests/testthat/test-plotCountsPerCell.R

In acidgenomics/AcidPlots: Acid Genomics Plot Functions and Themes

object <- calculateMetrics(sce)

test_that("SingleCellExperiment", {
    p <- plotCountsPerCell(object)
    expect_s3_class(p, "ggplot")
})

skip_if_not_installed(pkg = "DropletUtils", minimum_version = "1.4")

points <- eval(formals(`plotCountsPerCell,SCE`)[["point"]])
test_that("Inflection/knee point labeling", {
    for (point in points) {
        p <- plotCountsPerCell(
            object = object,
            point = point,
            geom = "ecdf"
        )
        expect_s3_class(p, "ggplot")
    }
})