tests/testthat/test-degIntersection.R

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    Map(
        return = c(
            "matrix",
            "count",
            "ratio",
            "names"
        ),
        type = c(
            "logical",
            "integer",
            "double",
            "character"
        ),
        MoreArgs = list("object" = object),
        f = function(object, return, type) {
            expect_type(
                object = degIntersection(object, return = return),
                type = type
            )
        }
    )
})
steinbaugh/DESeqAnalysis documentation built on Oct. 13, 2023, 5:39 a.m.