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