Nothing
library(BridgeDbR)
context("simple")
test_that("it knows about ChEBI", {
dataSource = getDataSource("ChEBI")
expect_false(is.null(dataSource))
expect_equal(dataSource$getSystemCode(), "Ce")
})
test_that("it doesn't know about Ce, the system code for ChEBI", {
dataSource = getDataSource(code="Ce")
expect_false(is.null(dataSource))
expect_equal(dataSource$getSystemCode(), "Ce")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.