Multiple summarise() statements

ms.R

ms = function(.data, ...) {
  dots = quos(...)
  
  map(dots, ~ call_modify(., .data = .data) %>% eval_tidy()) %>%
    reduce(function(tb1, tb2) {
      for (newcol in setdiff(names(tb2), names(tb1))) {
        tb1[[newcol]] = tb2[[newcol]]
      }
      tb1
    })
}