data("stackepi")
test1 <- function() plotMetric(SummarizedExperiment::rowRanges(stackepi)$exp)
test_that(
"default parameters", {
vdiffr::expect_doppelganger("plotMetric default", test1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.