tests/testthat/test_annotations.R

test_that("Annotation data frame retrieval", {
  anno_df <- get_annotation_orgdb(dds_airway, "org.Hs.eg.db", "ENSEMBL")
  
  expect_s3_class(anno_df, "data.frame")
  expect_true(all(dim(anno_df) == c(63677, 2)))
})
federicomarini/pcaExplorer documentation built on Dec. 21, 2024, 8:47 p.m.