#' @title Count Groups
#' @description Count records in a dataset within defined groups.
#' @param .data dataset
#' @param .summary_var variable to count
#' @param ... grouping variables
#' @author Ryan N. Kinzer
#' @return
#' @export
cnt_groups <- function(.data, .summary_var, ...){
# quote count variable
summary_var <- enquo(.summary_var)
# n_name <- paste('n_', quo_name(summary_var), sep='')
dat <- .data %>%
group_by(...) %>%
count(!!summary_var) %>%
ungroup()
# colnum <- ncol(dat)
# colnames(dat)[colnum] <- n_name
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.