Merge branch 'standard_grouped_summary' of https://github.com/LukasTa…

…ng/dplyr into standard_grouped_summary
tidyverse · Sep 15, 2024 · f62c037 · f62c037
2 parents 0c87305 + 2c7a69a
commit f62c037
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/standard_summary.R b/R/standard_summary.R
@@ -23,6 +23,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),
@@ -46,5 +47,4 @@ standard_summary <- function(df, vars, functions = list(
     pivot_wider(id_cols = c(gg, "VARIABLE"), values_from = value, names_from = STAT) %>%
     as.data.frame()
   return(summary_res)
-
 }