tests/testthat/test_plot_cdfs.R

In distinct: distinct: a method for differential analyses via hierarchical permutation tests

test_that("plot_cdfs() works faultlessly.", {
  data("Kang_subset", package = "distinct")
  Kang_subset
  
  res = plot_cdfs(x = Kang_subset,
            gene = "ISG15",
            cluster = "Dendritic cells",
            name_assays_expression = "logcounts",
            name_cluster = "cell",
            name_sample = "sample_id",
            name_group = "stim")
  
  expect_is(res, "ggplot")
})