small example change

R/tbl_hierarchical.R

@@ -1,6 +1,7 @@
 #' Hierarchical table
 #'
 #' @description `r lifecycle::badge('experimental')`\cr
+#' *This is an early release of this function, and there will likely be changes in the next release.*
 #'
 #' Use these functions to generate hierarchical tables.
 #'
@@ -58,30 +59,30 @@
 #'   (for `tbl_hierarchical_count()`).
 #'
 #' @examples
-#' data <- cards::ADAE |>
+#' ADAE_subset <- cards::ADAE |>
 #'   dplyr::filter(
-#'     AESOC %in% unique(cards::ADAE$AESOC)[1:20],
-#'     AETERM %in% unique(cards::ADAE$AETERM)[1:20]
+#'     AESOC %in% unique(cards::ADAE$AESOC)[1:5],
+#'     AETERM %in% unique(cards::ADAE$AETERM)[1:5]
 #'   )
 #'
-#' # Example 1 - Event Rates ------------------------------------
+#' # Example 1 - Event Rates --------------------
 #'
 #' tbl_hierarchical(
-#'   data = data,
+#'   data = ADAE_subset,
 #'   variables = c(AESOC, AETERM, AESEV),
 #'   by = TRTA,
 #'   denominator = cards::ADSL |> mutate(TRTA = ARM),
 #'   id = USUBJID,
 #'   overall_row = TRUE
 #' )
 #'
-#' # Example 2 - Rates by Highest Severity ----------------------
+#' # Example 2 - Rates by Highest Severity ------
 #'
 #' # order the severity variable
 #' data$AESEV <- factor(data$AESEV, ordered = TRUE)
 #'
 #' tbl_hierarchical(
-#'   data = data,
+#'   data = ADAE_subset,
 #'   variables = c(AESOC, AESEV),
 #'   by = TRTA,
 #'   id = USUBJID,