tests/testthat/test-frequency_histogram.R

In neurogenomics/MultiEWCE: Multi-Scale Target Explorer

test_that("plot_frequency_histogram works", {

  results <- load_example_results()[seq(500),]
  fp_res <- plot_frequency_histogram(results=results)
  testthat::expect_true(methods::is(fp_res$data$pheno_plot_df,"data.table"))
  testthat::expect_true(methods::is(fp_res$data$gene_plot,"data.table"))
  testthat::expect_true(methods::is(fp_res$plot,"patchwork"))
})