R/mod_tableGen_fct_meanSummary.R

In Biogen-Inc/tidyCDISC: Quick Table Generation & Exploratory Analyses on ADaM-Ish Datasets

#' the \code{mean_summary} function is used by
#' both the basic summary statistics block
#' and the change from baseline block
#' @param .data is the data to pass to the summary statics
#' @param to_count is either AVAL or CHG
#' 
#' @import dplyr
#' 
#' @family tableGen Functions
#' @noRd
#' 
mean_summary <- function(.data, to_count) {
  # FOR TESTING
  # .data = all
  # to_count = "CHG"
  
  to_count <- sym(to_count)
  
  suppressWarnings(
    .data %>%
    summarise(
      n = paste(n_distinct(USUBJID)),
      `Mean (SD)` = paste0(sprintf("%.1f", round(mean(na.omit(!!to_count)), 1)),
                          " (", sprintf("%.2f", round(sd(na.omit(!!to_count)), 2)), ")"),
      Median = sprintf("%.1f", median(na.omit(!!to_count), type = 1)),
      `Q1 | Q3` = paste(sprintf("%.1f", round(quantile(na.omit(!!to_count), 0.25, type = 1),2)) , "|", 
                        (sprintf("%.1f", round(quantile(na.omit(!!to_count), 0.75, type = 1),2)))),
      `Min | Max` = paste0(round(min(na.omit(!!to_count)), 2), " | ", 
                           round(max(na.omit(!!to_count)), 2))
    )
  )
}