Fix example

insightsengineering · Oct 16, 2024 · 540c757 · 540c757
1 parent afb3f6a
commit 540c757
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/R/count_cumulative.R b/R/count_cumulative.R
@@ -79,7 +79,7 @@ h_count_cumulative <- function(x,
 
   result <- c(
     count = count,
-    fraction = if (count == 0 && .N_col == 0) c(0, 0) else c(count, count / .N_col)
+    fraction = if (count == 0 && .N_col == 0) 0 else count / .N_col
   )
   result
 }

diff --git a/R/count_occurrences_by_grade.R b/R/count_occurrences_by_grade.R
@@ -234,12 +234,13 @@ s_count_occurrences_by_grade <- function(df,
 #' * `a_count_occurrences_by_grade()` returns the corresponding list with formatted [rtables::CellValue()].
 #'
 #' @examples
-#' #  We need to ungroup `count_fraction` first so that the `rtables` formatting
+#' # We need to ungroup `count_fraction` first so that the `rtables` formatting
 #' # function `format_count_fraction()` can be applied correctly.
 #' afun <- make_afun(a_count_occurrences_by_grade, .ungroup_stats = "count_fraction")
 #' afun(
 #'   df,
 #'   .N_col = 10L,
+#'   .N_row = 10L,
 #'   .var = "AETOXGR",
 #'   id = "USUBJID",
 #'   grade_groups = list("ANY" = levels(df$AETOXGR))

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