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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.