test_that("map_aliquot_ID_to_SP_ID", {
aliquot.ids <- c("e0fccaf5-925a-41f9-b87c-cd5ee4aecb59", "foo", "bar")
SP.ids <- expect_warning(map_aliquot_ID_to_SP_ID(aliquot.ids))
SP.ids <- SP.ids[!is.na(SP.ids)]
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.