test_that("width_boxplot works",{
data("encode_H3K27ac")
peaklist <- list("encode"=encode_H3K27ac)
p <- EpiCompare::width_boxplot(peaklist)
testthat::expect_true(methods::is(p$plot,"ggplot"))
testthat::expect_true(methods::is(p$data,"data.frame"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.