Nothing
test_that("msigdbr_collections()", {
chs <- msigdbr_collections(db_species = "Hs")
expect_identical(chs, msigdbr_collections())
expect_s3_class(chs, "tbl_df")
expect_gt(nrow(chs), 10)
expect_lt(nrow(chs), 30)
expect_match(chs$gs_collection, "H", fixed = TRUE, all = FALSE)
expect_match(chs$gs_collection, "C2", fixed = TRUE, all = FALSE)
expect_match(chs$gs_collection, "C7", fixed = TRUE, all = FALSE)
expect_match(chs$gs_collection, "C8", fixed = TRUE, all = FALSE)
cmm <- msigdbr_collections(db_species = "Mm")
expect_s3_class(cmm, "tbl_df")
expect_gt(nrow(cmm), 10)
expect_lt(nrow(cmm), 30)
expect_match(cmm$gs_collection, "MH", fixed = TRUE, all = FALSE)
expect_match(cmm$gs_collection, "M8", fixed = TRUE, all = FALSE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.