tests/testthat/test-supercells-chunks.R

v3_a = supercells(v3, 100, compactness = 1, chunk = 150)

test_that("supercells works for many chunks", {
  expect_equal(ncol(v3_a), 7)
  expect_equal(as.numeric(sf::st_bbox(v3_a)), unname(as.vector(terra::ext(v3)))[c(1, 3, 2, 4)])
})

Try the supercells package in your browser

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

supercells documentation built on May 29, 2024, 11:58 a.m.