fix #23

ptompalski · May 3, 2024 · a9bafad · a9bafad
1 parent 6c19232
commit a9bafad
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: lidRmetrics
-Title: Suplemetary point cloud metrics.
-Version: 0.1.2
+Title: Point cloud metrics for the lidR package.
+Version: 0.1.3
 Authors@R: c(
     person("Piotr", "Tompalski", email = "[email protected]", role = c("aut", "cre")),
     person("Jean-Romain", "Roussel", email = "", role = c("ctb")),

diff --git a/R/metrics_voxels.R b/R/metrics_voxels.R
@@ -47,7 +47,7 @@ metrics_voxels <- function(x, y, z, vox_size=1, zmin = NA) {
   vn <- NA_integer_
   vFRall <- vFRcanopy <- NA_real_
 
-  if (length(z) > 2) {
+  # if (length(z) > 2) {
 
     vox <- lidRmetrics:::create_voxels(x = x, y = y, z = z, vox_size = vox_size, zmin = zmin)
 
@@ -76,12 +76,12 @@ metrics_voxels <- function(x, y, z, vox_size=1, zmin = NA) {
 
       mlefsky <- lidRmetrics:::metrics_lefsky(x = vox$X, y = vox$Y, z = vox$Z, n=vox$n)
 
-    } else {
-
-      mhist <- lidRmetrics:::metrics_voxstructure(z = NA) #this is temporary fix
-      mlefsky <- lidRmetrics:::metrics_lefsky(x = NA, y = NA, z = NA, n=NA) #this is temporary fix
-
-    }
+    # } else {
+    #   
+    #   mhist <- lidRmetrics:::metrics_voxstructure(z = NA) #this is temporary fix
+    #   mlefsky <- lidRmetrics:::metrics_lefsky(x = NA, y = NA, z = NA, n=NA) #this is temporary fix
+    #   
+    # }
 
 
     output = list(vn = vn,