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))
  
})

Try the tabularaster package in your browser

Any scripts or data that you put into this service are public.

tabularaster documentation built on Nov. 2, 2023, 5:14 p.m.