tests/testthat/test_Merge_methy_tcga.R

test_that("can parse example Merge_methy_tcga", {
    merge_result <- Merge_methy_tcga(system.file(file.path("extdata", "methy"), 
      package = "GeoTcgaData"))
    expect_equal(names(merge_result), c("methyResult", "cpg_info"))
})
huerqiang/GeoTcgaData documentation built on March 21, 2024, 1:42 a.m.