tests/testthat/test-geneSet.R

test_that("FgseaList", {
    object <- fgsea
    collection <- collectionNames(object)[[1L]]
    set <- geneSetNames(object = object, collection = collection)[[1L]]
    x <- geneSet(
        object = object,
        collection = collection,
        set = set
    )
    expect_type(x, "character")
})
steinbaugh/pfgsea documentation built on Oct. 17, 2023, 11:24 a.m.