Update standard_summary.R - added sum to the function

tidyverse · Sep 12, 2024 · 2c7a69a · 2c7a69a
1 parent edc7f9f
commit 2c7a69a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/standard_summary.R b/R/standard_summary.R
@@ -27,6 +27,7 @@
 #'
 #' @export
 standard_summary <- function(df, vars, functions = list(
+  sum = ~sum(.x, na.rm = TRUE)
   mean = ~mean(.x, na.rm = TRUE),
   sd = ~sd(.x, na.rm = TRUE),
   min = ~min(.x, na.rm = TRUE),
@@ -47,4 +48,4 @@ standard_summary <- function(df, vars, functions = list(
     pivot_longer(cols = contains("xx")) %>%
     separate(name, into = c("VARIABLE", "STAT"), sep = "xx_xx") %>%
     pivot_wider(id_cols = c(gg, "VARIABLE"), values_from = value, names_from = STAT)
-}
+}