rowSums

ms609 · Apr 3, 2024 · 5752732 · 5752732
1 parent 4e77ae0
commit 5752732
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/length_range.R b/R/length_range.R
@@ -108,7 +108,7 @@ MinimumLength.numeric <- function (x, compress = NA) {
   repeat {
     tokens <- tokens[!duplicated(tokens), , drop = FALSE]
     unambiguous <- colSums(tokens) == 1
-    tokenNecessary <- apply(tokens[, unambiguous, drop = FALSE], 1, any)
+    tokenNecessary <- rowSums(tokens[, unambiguous, drop = FALSE]) > 0
     statesRemaining <- !unambiguous
     statesRemaining[statesRemaining] <- colSums(
       tokens[tokenNecessary, statesRemaining, drop = FALSE]) == 0