fixing join_key issues.

insightsengineering · Nov 8, 2023 · 07fd195 · 07fd195
1 parent 3a11031
commit 07fd195
Show file tree

Hide file tree

Showing 7 changed files with 31 additions and 19 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -68,7 +68,7 @@ Suggests:
     knitr,
     lubridate,
     nestcolor (>= 0.1.0),
-    teal.data (>= 0.3.0),
+    teal.data (>= 0.3.0.9008),
     testthat (>= 3.0)
 VignetteBuilder:
     knitr

diff --git a/R/tm_t_mult_events.R b/R/tm_t_mult_events.R
@@ -292,7 +292,11 @@ template_mult_events <- function(dataname,
 #'       ADSL <- tmc_ex_adsl
 #'       ADCM <- tmc_ex_adcm
 #'     ",
-#'     join_keys = join_keys #TODO join_key
+#'     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"))
+#'     )
 #'   ),
 #'   modules = modules(
 #'     tm_t_mult_events(

diff --git a/R/tm_t_pp_prior_medication.R b/R/tm_t_pp_prior_medication.R
@@ -88,7 +88,11 @@ template_prior_medication <- function(dataname = "ANL",
 #'       ADCM$CMASTDTM <- ADCM$ASTDTM
 #'       ADCM$CMAENDTM <- ADCM$AENDTM
 #'     ",
-#'     join_keys = join_keys #TODO Join- key
+#'     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"))
+#'     )
 #'   ),
 #'   modules = modules(
 #'     tm_t_pp_prior_medication(

diff --git a/man/template_g_lineplot.Rd b/man/template_g_lineplot.Rd
diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.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