Nothing
test_that("modify_size", {
grDevices::pdf(file = tf <- tempfile(fileext = ".pdf"))
on.exit({ grDevices::dev.off(); unlink(tf) }, add = TRUE)
expect_equal(fillpattern:::modify_size(30, 'x', "20mm"), 20)
expect_equal(fillpattern:::modify_size(20, 'y', "*2"), 40)
})
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.