R/split.R

In mtfairbanks/gts: Parallel 'fable' tools

#' Split data
#'
#' @description
#' Split data into a list of equal sized groups
#'
#' @param .data A nested tibble
#' @param times Number of equal sized groups to make
#'
#' @export
#'
#' @examples
ts_split <- function(.data, times = 8) {
  .data %>%
    mutate(group_id = row_number() %% times) %>%
    group_split(group_id)
}