tests/testthat/test-plotting.R

library(singleCellTK)
library(ggplot2)

test_that(desc = "Testing plotBubble.R", {
  data("scExample")
  
  bubblePlot <- plotBubble(sce, useAssay="counts", feature="B2M", displayName="feature_name", groupNames="type", title="cluster test")
  
  testthat::expect_true(is.ggplot(bubblePlot))
})
compbiomed/singleCellTK documentation built on May 8, 2024, 6:58 p.m.