tests/testthat/test-get_GeneNameID.R

test_that("get_GeneNameID() converts hugo symbols or NCBI gene IDs to DepMap gene IDs", {
  dir <- paste0("../testdata/GRETTA_example/")
  
  expect_identical(get_GeneNameID("A1CF", data_dir = dir), "A1CF_29974")
  expect_identical(get_GeneNameID("29974", data_dir = dir), "A1CF_29974")
})
ytakemon/GINIR documentation built on Feb. 27, 2024, 1:33 p.m.