Nothing
context("raster")
test_that("raster_str", {
r <- as.raster(matrix(hcl(0, 80, seq(40, 80, 10)), nrow = 5, ncol = 4))
code <- raster_str(r, width = 50, height = 50)
expect_gt(nchar(x = code), 50)
})
test_that("raster_write", {
r <- as.raster(matrix(hcl(0, 80, seq(40, 80, 10)), nrow = 5, ncol = 4))
filename <- tempfile(fileext = ".png")
raster_write(r, path = filename, width = 50, height = 50)
expect_true(file.exists(filename))
})
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.