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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.