fixing styling and rd files

insightsengineering · Nov 8, 2023 · cb4bccc · cb4bccc
1 parent bbbee71
commit cb4bccc
Show file tree

Hide file tree

Showing 16 changed files with 40 additions and 38 deletions.
diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R
@@ -18,7 +18,7 @@
 #'
 #' ADSL <- tmc_ex_adsl %>%
 #'   dplyr::mutate(ITTFL = factor("Y") %>%
-#'   formatters::with_label("Intent-To-Treat Population Flag"))
+#'     formatters::with_label("Intent-To-Treat Population Flag"))
 #' ADAE <- tmc_ex_adae %>%
 #'   dplyr::filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X")))
 #'

diff --git a/R/tm_g_ipp.R b/R/tm_g_ipp.R
@@ -188,9 +188,13 @@ template_g_ipp <- function(dataname = "ANL",
 #' @examples
 #' library(nestcolor)
 #'
-#' ADSL <- tmc_ex_adsl %>% dplyr::slice(1:20) %>% df_explicit_na()
-#' ADLB <- tmc_ex_adlb %>% dplyr::filter(USUBJID %in% ADSL$USUBJID) %>%
-#'   df_explicit_na() %>% dplyr::filter(AVISIT != "SCREENING")
+#' ADSL <- tmc_ex_adsl %>%
+#'   dplyr::slice(1:20) %>%
+#'   df_explicit_na()
+#' ADLB <- tmc_ex_adlb %>%
+#'   dplyr::filter(USUBJID %in% ADSL$USUBJID) %>%
+#'   df_explicit_na() %>%
+#'   dplyr::filter(AVISIT != "SCREENING")
 #'
 #' app <- init(
 #'   data = cdisc_data(

diff --git a/R/tm_g_pp_patient_timeline.R b/R/tm_g_pp_patient_timeline.R
@@ -376,7 +376,7 @@ template_patient_timeline <- function(dataname = "ANL",
 #'
 #' datanames(data) <- c("ADSL", "ADAE", "ADCM")
 #' data@join_keys <- join_keys(
-#'   join_key("ADSL",keys =  get_cdisc_keys("ADSL")),
+#'   join_key("ADSL", keys = get_cdisc_keys("ADSL")),
 #'   join_key("ADAE", keys = get_cdisc_keys("ADAE")),
 #'   join_key("ADCM", keys = adcm_keys),
 #'   join_key("ADAE", "ADSL", c("USUBJID", "STUDYID")),

diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R
@@ -281,8 +281,8 @@ template_therapy <- function(dataname = "ANL",
 #'     ",
 #'     join_keys = join_keys(
 #'       join_key("ADSL", keys = get_cdisc_keys("ADSL")),
-#'       join_key("ADCM", keys =  adcm_keys),
-#'       join_key("ADCM", "ADSL", keys =  c("USUBJID", "STUDYID"))
+#'       join_key("ADCM", keys = adcm_keys),
+#'       join_key("ADCM", "ADSL", keys = c("USUBJID", "STUDYID"))
 #'     )
 #'   ),
 #'   modules = modules(

diff --git a/R/tm_t_events_summary.R b/R/tm_t_events_summary.R
@@ -534,7 +534,6 @@ template_events_summary <- function(anl_name,
 #'
 #'   ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")]
 #'   aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")]
-#'
 #' })
 #'
 #' datanames <- c("ADSL", "ADAE")

diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R
@@ -294,8 +294,8 @@ template_mult_events <- function(dataname,
 #'     ",
 #'     join_keys = join_keys(
 #'       join_key("ADSL", keys = get_cdisc_keys("ADSL")),
-#'       join_key("ADCM", keys =  adcm_keys),
-#'       join_key("ADCM", "ADSL", keys =  c("USUBJID", "STUDYID"))
+#'       join_key("ADCM", keys = adcm_keys),
+#'       join_key("ADCM", "ADSL", keys = c("USUBJID", "STUDYID"))
 #'     )
 #'   ),
 #'   modules = modules(

diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R
@@ -90,8 +90,8 @@ template_prior_medication <- function(dataname = "ANL",
 #'     ",
 #'     join_keys = join_keys(
 #'       join_key("ADSL", keys = get_cdisc_keys("ADSL")),
-#'       join_key("ADCM", keys =  adcm_keys),
-#'       join_key("ADCM", "ADSL", keys =  c("USUBJID", "STUDYID"))
+#'       join_key("ADCM", keys = adcm_keys),
+#'       join_key("ADCM", "ADSL", keys = c("USUBJID", "STUDYID"))
 #'     )
 #'   ),
 #'   modules = modules(

diff --git a/man/template_g_lineplot.Rd b/man/template_g_lineplot.Rd
diff --git a/man/tm_g_barchart_simple.Rd b/man/tm_g_barchart_simple.Rd
diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd
diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd
diff --git a/man/tm_g_pp_patient_timeline.Rd b/man/tm_g_pp_patient_timeline.Rd
diff --git a/man/tm_g_pp_therapy.Rd b/man/tm_g_pp_therapy.Rd
diff --git a/man/tm_t_events_summary.Rd b/man/tm_t_events_summary.Rd
diff --git a/man/tm_t_mult_events.Rd b/man/tm_t_mult_events.Rd
diff --git a/man/tm_t_pp_prior_medication.Rd b/man/tm_t_pp_prior_medication.Rd
-Original file line number
+Diff line change
@@ Expand Up / @@ -534,7 +534,6 @@ template_events_summary <- function(anl_name, @@
     #'
     #'   ae_anl_vars <- names(ADAE)[startsWith(names(ADAE), "TMPFL_")]
     #'   aesi_vars <- names(ADAE)[startsWith(names(ADAE), "TMP_")]
-    #'
     #' })
     #'
     #' datanames <- c("ADSL", "ADAE")
@@ Expand Down @@