Fix if attribute is missing

r-lidar · Jan 28, 2025 · 9e020c2 · 9e020c2
1 parent 665a3ba
commit 9e020c2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/algorithm-dec.R b/R/algorithm-dec.R
@@ -276,6 +276,9 @@ lowest_attribute_per_voxel = function(res, attribute = "Z")
 
   f = function(las)
   {
+    if (!attribute %in% names(las))
+      stop(paste0(attribute, " is not an attribute in this point cloud"), call. = FALSE)
+
     tmp <- NULL
     voxelID = C_voxel_id(las, res)
     las@data$tmp = las@data[[attribute]]