test_that("FgseaList", {
object <- fgsea
output <- capture.output(show(object))
expect_match(head(output, n = 1L), "FgseaList")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.