test sfPolys has area

ropensci · Aug 22, 2023 · aa3f12d · aa3f12d
1 parent 6a269c9
commit aa3f12d
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-group-polys.R b/tests/testthat/test-group-polys.R
@@ -510,3 +510,20 @@ test_that('proportion within 0-100, area > 0', {
              units::as_units(0, 'm^2'))
 
 })
+
+
+test_that('sfPolys has area column', {
+  sfPolys <- build_polys(DT, projection = utm, hrType = 'kernel',
+                         hrParams = list(grid = 60, percent = 95),
+                         id = 'ID', coords = c('X', 'Y'))
+
+  sfPolys$area <- NULL
+
+  expect_error(
+    group_polys(sfPolys = sfPolys,
+                area = TRUE,
+                id = 'id'),
+    'please ensure column "area"',
+    fixed = TRUE
+  )
+})