Summarise some columns

summarise_columns.R

summarise_columns <-
function(dfname, ...) {
  checkmate::assert(
    checkmate::checkClass(dfname, "tbl_lazy"),
    checkmate::checkClass(dfname, "data.frame")
  )
  
  grps <- enquos(...)
  # print(as.character(grps))
  
  if ("tbl_lazy" %in% class(dfname)) {
    summary_df <-
      dfname %>%
      count(!!!grps, name = "Count") %>%
      collect()
  } else {
    summary_df <-
      dfname %>%
      group_by(!!!grps, .drop = FALSE) %>%
      summarise(Count = n())
  }
  
  summary_df %>%
    mutate(Pct = Count / sum(Count) * 100) %>%
    ungroup() %>%
    arrange(!!!grps[1:length(grps) - 1], desc(Pct))
}