tests/testthat/test-plot_hexbin_feature_shiny.R

In SaskiaFreytag/schex: Hexbin plots for single cell omics data

test_that("correct plot_hexbin_feature_shiny Seurat", {
  expect_equal(class(plot_hexbin_feature_shiny(pbmc_small, 
        type="counts", feature="TALDO1", 
        action="prop_0", min_nbins=2, max_nbins=10, dimension_reduction="PCA",
        mod="RNA")), "shiny.appobj")
})

test_that("correct plot_hexbin_feature_shiny SingleCellExperiment", {
  pbmc_small <- mockSCE() 
  pbmc_small <- logNormCounts(pbmc_small) 
  pbmc_small <- runPCA(pbmc_small)
  expect_equal(class(plot_hexbin_feature_shiny(pbmc_small, 
      type="counts", feature="Gene_0001", 
      action="prop_0", min_nbins=2, max_nbins=10, dimension_reduction="PCA",
      mod="RNA")), "shiny.appobj")
})