test_that("FgseaList", {
object <- fgsea
collection <- collectionNames(object)[[1L]]
output <- capture.output({
plotEnrichedGeneSets(
object = object,
collection = collection,
n = 1L
)
})
expect_identical(
object = output[[3L]],
expected = "### condition_B_vs_A {.tabset}"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.