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 Sept. 28, 2024, 2:27 a.m.