tests/testthat/test-create.R

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))
})
hypertidy/vapour documentation built on March 2, 2024, 7:59 p.m.