make sure concaveman always returns the same format of data

thomasp85 · Jan 19, 2024 · f551f33 · f551f33
1 parent 30bb18b
commit f551f33
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/concaveman.R b/R/concaveman.R
@@ -1,5 +1,5 @@
 concaveman <- function(points, concavity, threshold) {
-  if (nrow(points) < 4) return(points)
+  if (nrow(points) < 4) return(unname(points))
   hull <- as.integer(grDevices::chull(points)) - 1L
   concaveman_c(points, hull, concavity, threshold)
 }