context("test converting IDs to names")
test_that("test ids to names", {
idList <- c("9606", "5207", "40674", "4751")
out <- id2name(idList)
expect_true(nrow(out) == 4)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.