test_that("matrix", {
x <- assay(rse)
x <- x[seq_len(4L), seq_len(2L)]
y <- x * 2L
p <- plotCountsCorrelation(x, y)
expect_s3_class(p, "ggplot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.