Fix missing hulls when concave polygons are not generated for groups (#…

…312)
thomasp85 · Jan 16, 2024 · 9bebf4f · 9bebf4f
1 parent 82f7b73
commit 9bebf4f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/mark_hull.R b/R/mark_hull.R
@@ -306,6 +306,11 @@ makeContent.hull_enc <- function(x) {
     }
     concaveman::concaveman(mat, x$concavity, 0)
   }, xx = x_new, yy = y_new)
+  # ensure that all polygons have the same set of column names
+  polygons <- lapply(polygons, function(x) {
+    colnames(x) <- c("x", "y")
+    return(x)}
+  )
   mark$id <- rep(seq_along(polygons), vapply(polygons, nrow, numeric(1)))
   polygons <- vec_rbind(!!!polygons)
   mark$x <- unit(polygons[, 1], 'mm')