Nothing
test_that("multiplication works", {
expect_equal(2 * 2, 4)
})
library(testthat)
library(imageRy)
library(grDevices)
test_that("im.multiframe executes without error", {
tmp <- tempfile(fileext = ".png")
png(tmp)
expect_silent(im.multiframe(2, 2))
dev.off()
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.