context("getGeneSymbols")
test_that("getGeneSymbols works", {
library(org.Hs.eg.db)
geneSymbols <- getGeneSymbols(orgDb = "org.Hs.eg.db")
expect_is(geneSymbols, "character")
expect_gt(length(geneSymbols), 1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.