R/success.R

In christian-million/researchR:

success <- function(df, period, success, course_count, ...){
  enq_period <- enquo(period)
  enq_group_var <- quos(...)
  enq_success <- enquo(success)
  enq_course_count <- enquo(course_count)

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

}