R/retention.R

In christian-million/researchR:

retention <- function(df, period, retention, course_count, ...){

  enq_period <- enquo(period)
  enq_group_var <- quos(...)
  enq_retention <- enquo(retention)
  enq_course_count <- enquo(course_count)

  df %>%
    ungroup()%>%
    group_by(!!!enq_group_var, !!enq_period) %>%
    summarise(retention_rate = sum(!!enq_retention)/sum(!!enq_course_count))

}