Fix #757

r-lidar · May 20, 2024 · c93c949 · c93c949
1 parent caee631
commit c93c949
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@ If you are viewing this file on CRAN, please check [the latest news on GitHub](h
 
 - Fix: strongly improved arithmetic accuracy in `point_in_triangle` to improve the quality of delaunay triangulation interpolations and avoid local NAs
 - Enhance: `decimate_points()` with `random()` now preserves the point ordering.
+- Fix: #757
 
 ## lidR v4.1.1 (Release date: 2024-02-03)
 

diff --git a/R/st_hull.R b/R/st_hull.R
@@ -69,6 +69,11 @@ st_concave_hull.LAS = function(x, method = "concaveman",  ...)
     chull <- sf::st_polygon(list(as.matrix(chull)))
     chull <- sf::st_sfc(chull, crs = st_crs(x))
     if (!sf::st_is_valid(chull)) chull <- sf::st_make_valid(chull)
+    if (sf::st_geometry_type(chull) == "MULTIPOLYGON")
+    {
+      chull = sf::st_cast(chull, "POLYGON")
+      warning("The output of 'st_concave_hull' was a MULTIPOLYGON converted into multiple POLYGON(s)")
+    }
     return(chull)
   }