tests/testthat/test-plot_ontology_levels.R

test_that("plot_ontology_levels works", {

  plts <- plot_ontology_levels()
  testthat::expect_gte(nrow(plts$data),8000)
  testthat::expect_true(methods::is(plts$plot, "ggplot"))
})
neurogenomics/MultiEWCE documentation built on Sept. 28, 2024, 2:27 a.m.