Merge branch '339_migrate_to_teal_data@main' of https://github.com/in…

…sightsengineering/teal.modules.hermes into 339_migrate_to_teal_data@78_simplify_joinkeys@main
insightsengineering · Nov 9, 2023 · 8f2e7ca · 8f2e7ca
2 parents 71f64d4 + 500ae53
commit 8f2e7ca
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/R/adtteSpec.R b/R/adtteSpec.R
@@ -208,15 +208,15 @@ adtteSpecInput <- function(inputId, # nolint
 #' }
 #'
 #' my_app <- function() {
-#' data <- teal_data()
-#' data <- within(data, {
-#'   ADTTE = teal.modules.hermes::rADTTE %>%
-#'     dplyr::mutate(is_event = .data$CNSR == 0)
-#'   MAE = hermes::multi_assay_experiment
-#' })
-#' datanames <- c("ADTTE", "MAE")
-#' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#'   data <- teal_data()
+#'   data <- within(data, {
+#'     ADTTE <- teal.modules.hermes::rADTTE %>%
+#'       dplyr::mutate(is_event = .data$CNSR == 0)
+#'     MAE <- hermes::multi_assay_experiment
+#'   })
+#'   datanames <- c("ADTTE", "MAE")
+#'   datanames(data) <- datanames
+#'   join_keys(data) <- cdisc_join_keys(!!!datanames)
 #'
 #'   app <- init(
 #'     data = data,
@@ -392,4 +392,3 @@ adtteSpecServer <- function(id, # nolint
     )
   })
 }
-