docs: use default_cdisc_join_keys

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

Hide file tree

Showing 29 changed files with 29 additions and 29 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_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_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
@@ -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-response-plot.Rmd b/vignettes/using-response-plot.Rmd
@@ -55,7 +55,7 @@ data <- within(data, {
 })
 datanames <- c("ADSL", "ADSL2", "ADRS", "ADTTE", "ADLB")
 datanames(data) <- datanames
-join_keys(data) <- cdisc_join_keys(!!!datanames)
+join_keys(data) <- default_cdisc_join_keys[datanames]
 join_keys(data)["ADSL2"] <- get_cdisc_keys("ADSL")
 # nolint end
 ```

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