R/accumulate_by.R

In AnthonyEbert/COVID19data: What the Package Does (One Line, Title Case)

#' Accumulate function
#' @details Provided by plotly
#' @export
accumulate_by <- function(dat, var) {
  var <- lazyeval::f_eval(var, dat)
  lvls <- plotly:::getLevels(var)
  dats <- lapply(seq_along(lvls), function(x) {
    cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
  })
  dplyr::bind_rows(dats)
}