tests/testthat/test_TCGA_ID_to_ICGA_ID.R

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)]
})
steverozen/PCAWG7 documentation built on Feb. 2, 2022, 5:40 a.m.