add comment about when aggregation is used

ncss-tech · Oct 11, 2024 · 0098010 · 0098010
1 parent f01ffe2
commit 0098010
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/collapseHz.R b/R/collapseHz.R
@@ -178,6 +178,7 @@ collapseHz <- function(x,
       r <- rle(l)
     }
 
+    # only apply aggregation if there are adjacent horizons that match the target criteria
     if (any(r$lengths > 1)) {
       g <- unlist(lapply(seq_along(r$lengths), function(i) rep(i, r$lengths[i])))
       hidx <- unlist(lapply(seq_along(r$lengths), function(i) if (r$lengths[i] == 1) TRUE else rep(FALSE, r$lengths[i]))) & l