fix: add split_at function

ethanbass · Dec 18, 2023 · a347da3 · a347da3
1 parent b165dfc
commit a347da3
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -267,3 +267,8 @@ collapse_list <- function(x){
   }
   x
 }
+
+#' Split vector by position
+#' @note From https://stackoverflow.com/questions/16357962/r-split-numeric-vector-at-position
+#' @noRd
+split_at <- function(x, pos) unname(split(x, cumsum(seq_along(x) %in% pos)))