tests/testthat/test-plot_bar_dendro.R

test_that("plot_bar_dendro works", {

  results <- load_example_results(multi_dataset=TRUE)
  out <- plot_bar_dendro(results = results)
  testthat::expect_true(methods::is(out$plot,"gg"))
  testthat::expect_true(methods::is(out$data,"data.table"))
})
neurogenomics/MultiEWCE documentation built on May 7, 2024, 1:52 p.m.