context("Test: getDatasets()")
test_that("The getDatasets() interface works properly..",{
skip_on_cran()
skip_on_travis()
expect_identical(getMarts()[1 , "mart"][[1]], "ENSEMBL_MART_ENSEMBL")
expect_output(getDatasets(mart = "ENSEMBL_MART_ENSEMBL"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.