test_that("TCGA_ID_to_ICGC_ID", {
tcga.ids <- c("TCGA-AA-A01V", "foo", "TCGA-CA-6717", "bar")
icgc.ids <- expect_warning(TCGA_ID_to_ICGC_ID(tcga.ids))
icgc.ids <- icgc.ids[!is.na(icgc.ids)]
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.