R/split.R

In yonicd/noplyr: Use dplyr and tidyr without the dependency overhead

#' @importFrom rlang quo_squash
splitter <- function(.data){

  subset(strip_class(.data),
         select = unlist(lapply(
           attr(.data,'splitby'),
           function(x){eval(rlang::quo_squash(x))})
         ))
}


split.split_df <- function(x,f = splitter){
  split(strip_class(x),f(x))
}