data(
deseq,
package = "DESeqAnalysis",
envir = environment()
)
test_that("RankedList", {
x <- FgseaList(
object = deseq,
geneSetFiles = c("h" = file.path(cacheDir, "h.all.v7.0.symbols.gmt"))
)
expect_s4_class(x, "FgseaList")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.