update example

insightsengineering · Jan 15, 2025 · 4cf2edf · 4cf2edf
1 parent 2908900
commit 4cf2edf
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 24 deletions.
diff --git a/R/count_patients_with_event.R b/R/count_patients_with_event.R
@@ -53,16 +53,13 @@ NULL
 #'   tern_ex_adae,
 #'   .var = "SUBJID",
 #'   filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL"),
-#'   denom = "N_col",
-#'   .N_col = 456
+#'   denom = "N_col"
 #' )
 #'
 #' @export
 s_count_patients_with_event <- function(df,
                                         .var,
                                         filters,
-                                        .N_col, # nolint
-                                        .N_row, # nolint
                                         denom = c("n", "N_col", "N_row")) {
   col_names <- names(filters)
   filter_values <- filters
@@ -79,9 +76,7 @@ s_count_patients_with_event <- function(df,
   result <- s_count_values(
     as.character(unique(df[[.var]])),
     id_satisfy_filters,
-    denom = denom,
-    .N_col = .N_col,
-    .N_row = .N_row
+    denom = denom
   )
   result
 }
@@ -96,9 +91,7 @@ s_count_patients_with_event <- function(df,
 #' a_count_patients_with_event(
 #'   tern_ex_adae,
 #'   .var = "SUBJID",
-#'   filters = c("TRTEMFL" = "Y"),
-#'   .N_col = 100,
-#'   .N_row = 100
+#'   filters = c("TRTEMFL" = "Y")
 #' )
 #'
 #' @export
@@ -116,7 +109,7 @@ a_count_patients_with_event <- function(df,
                                         .indent_mods = NULL,
                                         na_str = default_na_str()) {
   x_stats <- s_count_patients_with_event(
-    df = df, .var = .var, filters = filters, .N_col = .N_col, .N_row = .N_row, denom = denom
+    df = df, .var = .var, filters = filters, denom = denom
   )
 
   if (is.null(unlist(x_stats))) {

diff --git a/man/count_patients_with_event.Rd b/man/count_patients_with_event.Rd