Nothing
test_that("agg_tiff 8bit generates file", {
file <- tempfile(fileext = '.tiff')
agg_tiff(file)
plot(1:10, 1:10)
dev.off()
expect_gt(file.info(file)$size, 0)
unlink(file)
})
test_that("agg_tiff 16bit generates file", {
file <- tempfile(fileext = '.tiff')
agg_tiff(file, bitsize = 16)
plot(1:10, 1:10)
dev.off()
expect_gt(file.info(file)$size, 0)
unlink(file)
})
test_that("agg_tiff supports unicode in path", {
file <- tempfile(pattern = "\u0aaa", fileext = '.tiff')
agg_tiff(file)
plot(1:10, 1:10)
dev.off()
expect_gt(file.info(file)$size, 0)
unlink(file)
})
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.