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 May 7, 2024, 1:52 p.m.