tests/testthat/test-summary_plot.R

In neurogenomics/MultiEWCE: Multi-Scale Target Explorer

test_that("plot_bar_summary works", {

  keep_descendants <- "Neurodevelopmental delay"
  plt_pheno_count <- plot_bar_summary(count_var = "hpo_name",
                                  group_var = "CellType",
                                  keep_descendants = keep_descendants)
  testthat::expect_true(
    methods::is(plt_pheno_count,"plotly")
  )
  plt_cell_count <- plot_bar_summary(count_var = "CellType",
                                  group_var = "hpo_name",
                                 keep_descendants = keep_descendants)
  testthat::expect_true(
    methods::is(plt_pheno_count,"plotly")
  )
})