test_that("plotZerosVsDepth", {
for (object in list(
SummarizedExperiment = rse,
SingleCellExperiment = sce
)) {
p <- plotZerosVsDepth(object)
expect_s3_class(p, "ggplot")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.