Nothing
library(BridgeDbR)
context("simple")
test_that("it recognizes identifiers from HMDB (old)", {
answerList = getMatchingSources("HMDB00626")
expect_true(is.vector(answerList))
expect_true("HMDB" %in% answerList)
})
test_that("it recognizes identifiers from HMDB (new, 2017-08)", {
answerList = getMatchingSources("HMDB0000626")
expect_true(is.vector(answerList))
expect_true("HMDB" %in% answerList)
})
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.