From 177eee2f28fed444c49deac39a906036221bcbfa Mon Sep 17 00:00:00 2001 From: Jean-Romain Date: Tue, 3 Dec 2024 15:27:49 -0500 Subject: [PATCH] Fix homogenize #789 --- NEWS.md | 1 + R/algorithm-dec.R | 3 ++- src/Makevars | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/NEWS.md b/NEWS.md index 654f6b1f..b204544a 100755 --- a/NEWS.md +++ b/NEWS.md @@ -18,6 +18,7 @@ v4.2.0 brings new tools for terrestrial data (TLS, MLS): - Enhance: Improved the `crs()`, `is.empty()`, and `area()` functions, which now inherit from `terra`, avoiding conflicts with `terra`. - Enhance: Addressed issue #776 to allow `readLAScatalog()` to skip corrupted files. - Enhance: Optimized performance for many operations on TLS data. +- Fix: #789 `homogenize()` ## lidR v4.1.2 (Release date: 2024-07-09) diff --git a/R/algorithm-dec.R b/R/algorithm-dec.R index 338b453b..772a5d90 100644 --- a/R/algorithm-dec.R +++ b/R/algorithm-dec.R @@ -240,8 +240,9 @@ random_per_voxel = function(res = 1, n = 1) return(rep(TRUE, length(pulseID))) selectedPulses <- sample(p, n) - selectedPulses <- pulseID %in% selectedPulses selectedPulses <- sort(selectedPulses) + selectedPulses <- pulseID %in% selectedPulses + return(selectedPulses) } diff --git a/src/Makevars b/src/Makevars index 80f03cba..cf1de141 100644 --- a/src/Makevars +++ b/src/Makevars @@ -1,2 +1,2 @@ -PKG_CXXFLAGS = $(SHLIB_OPENMP_CXXFLAGS) -I../inst/include/ -DRCPP_NO_MODULES +PKG_CXXFLAGS = $(SHLIB_OPENMP_CXXFLAGS) -I../inst/include/ -DRCPP_NO_MODULES -DWITHSETLENGTH PKG_LIBS = $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS) $(SHLIB_OPENMP_CXXFLAGS)