test_that("FgseaList", {
object <- fgsea
alphaThreshold(object) <- 0.9
collection <- collectionNames(object)[[1L]]
object <- plotEnrichedUpset(
object = object,
collection = collection
)
expect_s3_class(object, "ggplot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.