tests/testthat/test-decimate.R

r <- raster::raster(volcano)
test_that("emoji works", {
  expect_equal(dim(decimate(r)), c(9, 6, 1))
  expect_equal(dim(decimate(r, 3)), c(29, 20, 1))
  
})
r-gris/tabularaster documentation built on Jan. 19, 2024, 8:57 a.m.