tests/testthat/test-report_plot.R

test_that("plot_report works", {

  results <- load_example_results()
  rep_dt <- example_targets$report
  gp <- plot_report(rep_dt=rep_dt, results=results)
  testthat::expect_true(methods::is(gp,"ggplot"))
})
neurogenomics/MultiEWCE documentation built on Sept. 28, 2024, 2:27 a.m.