group_tt indexing bug

vincentarelbundock · Feb 3, 2024 · 39b15b3 · 39b15b3
1 parent cc8c6cf
commit 39b15b3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/group_tt.R b/R/group_tt.R
@@ -58,6 +58,7 @@ sanitize_group_index <- function(idx, hi, orientation) {
       assert_integerish(idx[[n]], lower = 1, upper = hi, name = n)
     }
   }
+  browser()
   if (anyDuplicated(unlist(idx)) > 0) stop("Duplicate group indices.", call. = FALSE)
   out <- lapply(idx, function(x) min(x):max(x))
   return(out)