R/mutate-pct.R

In UniversityOfSaintThomas/ustr: Templates, functions, and themes for the University of St. Thomas IDAR team.

#' mutates percentages in both decimal and scales::percent format.
#'
#'
#'@param data A dataframe (most likely passed with \code{%>%})
#'@param n A tally() or count() result
#'@return The percentage of \code{n} in decimal and percentage (default one decimal place) format.

mutate_pct <- function(data, n) {
  dplyr::mutate(data,
                pct = n / sum(n),
                pct_formatted = scales::percent(n / sum(n), accuracy = 0.1)
  )
}