context("Write pineplot")
test_that("pineplot is drawn", {
# check tests/figs directory to validate output
ms <- replicate(4, outer(-3:3, -3:3, "+"), simplify = FALSE)
plts <- lapply(ms, draw_heatmap)
pdf("../figs/pineplot.pdf")
write_pine_plot(plts)
dev.off()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.