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.WGS.Spectra documentation built on Jan. 27, 2022, 4:51 a.m.