ex <- c(10, 20, -10, 20)
test_that("create works", {
expect_output(vapour_create(tf <- tempfile(fileext = ".tif"), dimension = c(10, 5), extent = ex)) |> expect_equal(tf)
expect_silent(info <- vapour_raster_info(tf))
expect_equal(info$extent, ex)
expect_equal(info$dimension, c(10, 5))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.