tests/testthat/test-agg_results.R

test_that("agg_results works", {

  phenos <- subset_results(filters=list(CellType = "Microglia"))
  agg_res <- agg_results(phenos = phenos)
  testthat::expect_true(nrow(agg_res)==1)
  testthat::expect_true(nrow(agg_res)<nrow(phenos))
})
neurogenomics/MultiEWCE documentation built on Feb. 18, 2025, 6:43 p.m.