docs: use default_cdisc_join_keys

insightsengineering · Nov 15, 2023 · efe3e2c · efe3e2c
1 parent a61bdf5
commit efe3e2c
Show file tree

Hide file tree

Showing 38 changed files with 45 additions and 51 deletions.
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -31,7 +31,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #' app <- teal::init(
 #'   data = data,
 #'   modules = teal::modules(

diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -41,7 +41,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -32,7 +32,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_front_page.R b/R/tm_front_page.R
@@ -24,7 +24,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' table_1 <- data.frame(Info = c("A", "B"), Text = c("A", "B"))
 #' table_2 <- data.frame(`Column 1` = c("C", "D"), `Column 2` = c(5.5, 6.6), `Column 3` = c("A", "B"))

diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -32,7 +32,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -52,7 +52,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -61,7 +61,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' vars1 <- choices_selected(
 #'   variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),

diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -34,7 +34,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -44,7 +44,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -27,7 +27,7 @@
 #' })
 #' datanames <- c("ADSL", "ADRS")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -25,7 +25,7 @@
 #' })
 #' datanames <- c("ADSL", "ADRS")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -23,7 +23,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' fact_vars_adsl <- names(Filter(isTRUE, sapply(data[["ADSL"]], is.factor)))
 #' vars <- choices_selected(variable_choices(data[["ADSL"]], fact_vars_adsl))

diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -29,7 +29,7 @@
 #' })
 #' datanames <- c("ADSL")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
@@ -38,7 +38,7 @@
 #' })
 #' datanames <- c("ADSL", "ADTTE")
 #' datanames(data) <- datanames
-#' join_keys(data) <- cdisc_join_keys(!!!datanames)
+#' join_keys(data) <- default_cdisc_join_keys[datanames]
 #'
 #' app <- teal::init(
 #'   data = data,

diff --git a/man/tm_a_pca.Rd b/man/tm_a_pca.Rd
diff --git a/man/tm_a_regression.Rd b/man/tm_a_regression.Rd
diff --git a/man/tm_data_table.Rd b/man/tm_data_table.Rd
diff --git a/man/tm_front_page.Rd b/man/tm_front_page.Rd
diff --git a/man/tm_g_association.Rd b/man/tm_g_association.Rd
diff --git a/man/tm_g_bivariate.Rd b/man/tm_g_bivariate.Rd
diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd
diff --git a/man/tm_g_response.Rd b/man/tm_g_response.Rd
diff --git a/man/tm_g_scatterplot.Rd b/man/tm_g_scatterplot.Rd
diff --git a/man/tm_g_scatterplotmatrix.Rd b/man/tm_g_scatterplotmatrix.Rd
diff --git a/man/tm_missing_data.Rd b/man/tm_missing_data.Rd
diff --git a/man/tm_outliers.Rd b/man/tm_outliers.Rd
diff --git a/man/tm_t_crosstable.Rd b/man/tm_t_crosstable.Rd
diff --git a/man/tm_variable_browser.Rd b/man/tm_variable_browser.Rd
diff --git a/vignettes/teal-modules-general.Rmd b/vignettes/teal-modules-general.Rmd
@@ -51,7 +51,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADTTE")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 # nolint end
 
 app <- teal::init(
@@ -93,7 +93,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADTTE")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 # nolint end
 ```
 

diff --git a/vignettes/using-association-plot.Rmd b/vignettes/using-association-plot.Rmd
@@ -76,9 +76,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 

diff --git a/vignettes/using-bivariate-plot.Rmd b/vignettes/using-bivariate-plot.Rmd
@@ -56,9 +56,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```

diff --git a/vignettes/using-cross-table.Rmd b/vignettes/using-cross-table.Rmd
@@ -48,7 +48,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADLB")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 # nolint end
 ```
 

diff --git a/vignettes/using-data-table.Rmd b/vignettes/using-data-table.Rmd
@@ -44,7 +44,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADTTE", "ADLB")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 # nolint end
 ```
 

diff --git a/vignettes/using-outliers-module.Rmd b/vignettes/using-outliers-module.Rmd
@@ -45,7 +45,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADRS", "ADLB")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 # nolint end
 ```
 

diff --git a/vignettes/using-regression-plots.Rmd b/vignettes/using-regression-plots.Rmd
@@ -54,9 +54,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```

diff --git a/vignettes/using-response-plot.Rmd b/vignettes/using-response-plot.Rmd
@@ -53,9 +53,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```

diff --git a/vignettes/using-scatterplot-matrix.Rmd b/vignettes/using-scatterplot-matrix.Rmd
@@ -54,9 +54,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```

diff --git a/vignettes/using-scatterplot.Rmd b/vignettes/using-scatterplot.Rmd
@@ -54,9 +54,8 @@ data <- within(data, {
       TRUE ~ "-"
     )))
 })
-datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
-datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+datanames(data) <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADTTE", "ADLB")]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```