library(renm)
context("Substances")
test_that("substances are found", {
substances = listSubstances("http://data.enanomapper.net/")
expect_that(nrow(substances), not(equals(0)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.