test_that("DESeqAnalysis", {
object <- objs[["deseq"]]
x <- capture.output(show(object))
expect_match(x[[1L]], "DESeqAnalysis")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.