context("Test: getMarts()")
test_that("The getMarts() interface works properly..",{
skip_on_cran()
skip_on_travis()
marts <- getMarts()
expect_false(nrow(marts) == 0)
expect_false(length(marts$mart) != length(unique(marts$mart)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.