Nothing
test_that("affineGrob() works", {
skip_if_not(getRversion() >= "4.3.0")
skip_if_not(isTRUE(all(capabilities(c("cairo", "png")))))
f <- tempfile(fileext = ".png")
png(f, type = "cairo")
grid.affine(grid::nullGrob())
dev.off()
expect_true(file.size(f) > 0)
unlink(f)
})
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.