R/summarize_all_numeric.R

In jjwillard/wfbmcphsr: WFBMC Public Health Sciences

#' @title Summarize All Numeric Variables
#'
#' @description This function allows you to calculate mean and sd for all numeric variables in a dataset
#' @param df Dataset containing covariates of interest
#' @param num_vars Vector of numeric variables
#' @param grouping_var Variable to group by (will be columns of table)
#' @param num_display How should results be displayed? ('PM' for mean +- sd, 'PRS' for mean (sd))
#' @param show_pval Logical.  Should the p-value results be displayed?
#' @param digits Number of digits to round decimals
#' @export
#' @import dplyr
#' @importFrom purrr map_dfr
#' @return A data frame summarizing mean/sd of covariate at each level of grouping variable
#' @examples \dontrun{
#' quantify_numeric(covariate = age, df = obpv_baseline, grouping_var = obpv_quintile, digits = 1)
#' }
#'



summarize_all_numeric <- function(df, num_vars, grouping_var, num_display = 'PM', show_pval = TRUE, digits = 1){

  grouping_var <- dplyr::enquo(grouping_var)

  res <- purrr::map_dfr(syms(num_vars), quantify_numeric, df = df,
                 grouping_var = !!grouping_var, num_display = num_display, show_pval = show_pval,
                 digits = digits)
  invisible(res)
}