From 86a680b4eff5440e17c0051e864fda0e94612480 Mon Sep 17 00:00:00 2001 From: Malcolm Barrett Date: Mon, 3 Feb 2025 13:21:32 -0500 Subject: [PATCH] add example with `n_unweighted` --- R/add_ess_header.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/add_ess_header.R b/R/add_ess_header.R index be72877..a571939 100644 --- a/R/add_ess_header.R +++ b/R/add_ess_header.R @@ -21,7 +21,7 @@ #' add_ess_header() #' #' gtsummary::tbl_svysummary(svy, by = qsmk, include = c(age, sex, smokeyrs)) |> -#' add_ess_header(header = "**{level}** \nN = {round(n, 1)} / {round(N, 1)}") +#' add_ess_header(header = "**{level}** \nN = {n_unweighted}; \nESS = {round(n, 1)}") add_ess_header <- function(x, header = "**{level}** \nESS = {round(n, 1)}") { # check inputs --------------------------------------------------------------- rlang::check_installed(c("cards", "dplyr"))