tests/testthat/test-metrics.R

In acidgenomics/r-acidexperiment: Acid Genomics Summarized Experiment

object <- calculateMetrics(rse)

test_that("SummarizedExperiment", {
    x <- metrics(object)
    expect_s4_class(x, "DFrame")
    expect_identical(
        object = colnames(x),
        expected = c(
            "condition",
            "nCount",
            "nFeature",
            "nCoding",
            "nMito",
            "log10FeaturesPerCount",
            "mitoRatio",
            "sampleName",
            "interestingGroups"
        )
    )
    expect_true(hasRownames(x))
})