flagOverlappingHz: handle an edge case

ncss-tech · Jan 31, 2024 · 30002b5 · 30002b5
1 parent 9bd9005
commit 30002b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/flagOverlappingHz.R b/R/flagOverlappingHz.R
@@ -53,7 +53,7 @@ flagOverlappingHz <- function(x) {
     ## TODO: tests required
     # index affected horizons
     .m <- outer(.ot, .tops, '==')
-    idx <- as.vector(apply(.m, 1, which))
+    idx <- unlist(as.vector(apply(.m, 1, which)))
 
     # generate flag vector along sequence of horizons 
     .res <- rep(FALSE, times = length(.tops))