From efe3e2c2633d51873b6cc78b5873986bf9788b28 Mon Sep 17 00:00:00 2001 From: vedhav Date: Wed, 15 Nov 2023 13:47:32 +0530 Subject: [PATCH] docs: use default_cdisc_join_keys --- R/tm_a_pca.R | 2 +- R/tm_a_regression.R | 2 +- R/tm_data_table.R | 2 +- R/tm_front_page.R | 2 +- R/tm_g_association.R | 2 +- R/tm_g_bivariate.R | 2 +- R/tm_g_distribution.R | 2 +- R/tm_g_response.R | 2 +- R/tm_g_scatterplot.R | 2 +- R/tm_g_scatterplotmatrix.R | 2 +- R/tm_missing_data.R | 2 +- R/tm_outliers.R | 2 +- R/tm_t_crosstable.R | 2 +- R/tm_variable_browser.R | 2 +- man/tm_a_pca.Rd | 2 +- man/tm_a_regression.Rd | 2 +- man/tm_data_table.Rd | 2 +- man/tm_front_page.Rd | 2 +- man/tm_g_association.Rd | 2 +- man/tm_g_bivariate.Rd | 2 +- man/tm_g_distribution.Rd | 2 +- man/tm_g_response.Rd | 2 +- man/tm_g_scatterplot.Rd | 2 +- man/tm_g_scatterplotmatrix.Rd | 2 +- man/tm_missing_data.Rd | 2 +- man/tm_outliers.Rd | 2 +- man/tm_t_crosstable.Rd | 2 +- man/tm_variable_browser.Rd | 2 +- vignettes/teal-modules-general.Rmd | 4 ++-- vignettes/using-association-plot.Rmd | 5 ++--- vignettes/using-bivariate-plot.Rmd | 5 ++--- vignettes/using-cross-table.Rmd | 2 +- vignettes/using-data-table.Rmd | 2 +- vignettes/using-outliers-module.Rmd | 2 +- vignettes/using-regression-plots.Rmd | 5 ++--- vignettes/using-response-plot.Rmd | 5 ++--- vignettes/using-scatterplot-matrix.Rmd | 5 ++--- vignettes/using-scatterplot.Rmd | 5 ++--- 38 files changed, 45 insertions(+), 51 deletions(-) diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R index 6966c4f2d..692b32748 100644 --- 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 index aafb365d6..775fbbca2 100644 --- 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 index cc14cf816..6fbe64df5 100644 --- 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 index 5d21635b8..75616ae3d 100644 --- 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 index 0289754ce..5907f4cda 100644 --- 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 index 7b0df12ba..444ad2733 100644 --- 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 index 8ceeb5591..9afa58d09 100644 --- 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 index e8d87b72a..f3cd52c1d 100644 --- 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 index 3ce500d50..cdaea83fe 100644 --- 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 index 2365ecf49..85e43923a 100644 --- 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 index abf8a8ea6..1931e2362 100644 --- 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 index 16c07bbe0..557974031 100644 --- 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 index a66591bdc..f4efb3169 100644 --- 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 index 045ff75f9..79432b6c6 100644 --- 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 index a0ba0a7c3..d0e4eb8ab 100644 --- a/man/tm_a_pca.Rd +++ b/man/tm_a_pca.Rd @@ -80,7 +80,7 @@ data <- within(data, { }) 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/man/tm_a_regression.Rd b/man/tm_a_regression.Rd index 5355f6547..028978d7d 100644 --- a/man/tm_a_regression.Rd +++ b/man/tm_a_regression.Rd @@ -94,7 +94,7 @@ data <- within(data, { }) 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/man/tm_data_table.Rd b/man/tm_data_table.Rd index 4e267bc81..c0cb56c50 100644 --- a/man/tm_data_table.Rd +++ b/man/tm_data_table.Rd @@ -61,7 +61,7 @@ data <- within(data, { }) 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/man/tm_front_page.Rd b/man/tm_front_page.Rd index 029433282..0a12da77e 100644 --- a/man/tm_front_page.Rd +++ b/man/tm_front_page.Rd @@ -47,7 +47,7 @@ data <- within(data, { }) 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/man/tm_g_association.Rd b/man/tm_g_association.Rd index a8948878c..96a8f31a8 100644 --- a/man/tm_g_association.Rd +++ b/man/tm_g_association.Rd @@ -78,7 +78,7 @@ data <- within(data, { }) 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/man/tm_g_bivariate.Rd b/man/tm_g_bivariate.Rd index 9d23e2390..cdcd38fb3 100644 --- a/man/tm_g_bivariate.Rd +++ b/man/tm_g_bivariate.Rd @@ -120,7 +120,7 @@ data <- within(data, { }) 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/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd index 0d59da12f..edd47d618 100644 --- a/man/tm_g_distribution.Rd +++ b/man/tm_g_distribution.Rd @@ -105,7 +105,7 @@ data <- within(data, { }) 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/man/tm_g_response.Rd b/man/tm_g_response.Rd index decf8de3b..ae16fde07 100644 --- a/man/tm_g_response.Rd +++ b/man/tm_g_response.Rd @@ -93,7 +93,7 @@ data <- within(data, { }) 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/man/tm_g_scatterplot.Rd b/man/tm_g_scatterplot.Rd index 2b9c5e63f..46a0f8170 100644 --- a/man/tm_g_scatterplot.Rd +++ b/man/tm_g_scatterplot.Rd @@ -107,7 +107,7 @@ data <- within(data, { }) 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/man/tm_g_scatterplotmatrix.Rd b/man/tm_g_scatterplotmatrix.Rd index fe3d04d05..a43190fa5 100644 --- a/man/tm_g_scatterplotmatrix.Rd +++ b/man/tm_g_scatterplotmatrix.Rd @@ -52,7 +52,7 @@ data <- within(data, { }) 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/man/tm_missing_data.Rd b/man/tm_missing_data.Rd index 8091314b5..043fce15e 100644 --- a/man/tm_missing_data.Rd +++ b/man/tm_missing_data.Rd @@ -62,7 +62,7 @@ data <- within(data, { }) 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/man/tm_outliers.Rd b/man/tm_outliers.Rd index a2c2f7d22..a3d013200 100644 --- a/man/tm_outliers.Rd +++ b/man/tm_outliers.Rd @@ -62,7 +62,7 @@ data <- within(data, { }) 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/man/tm_t_crosstable.Rd b/man/tm_t_crosstable.Rd index c9e0ce2b4..668380fa5 100644 --- a/man/tm_t_crosstable.Rd +++ b/man/tm_t_crosstable.Rd @@ -61,7 +61,7 @@ data <- within(data, { }) 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/man/tm_variable_browser.Rd b/man/tm_variable_browser.Rd index b2ca42891..1d5135639 100644 --- a/man/tm_variable_browser.Rd +++ b/man/tm_variable_browser.Rd @@ -63,7 +63,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] app <- teal::init( data = data, diff --git a/vignettes/teal-modules-general.Rmd b/vignettes/teal-modules-general.Rmd index 49fc8ed56..588639320 100644 --- 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 index c3f9b1989..5cdadd943 100644 --- 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 index d60217cb3..dc3268274 100644 --- 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 index a4ec8afcc..2ab93bd9a 100644 --- 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 index 3722f5423..77b8d4eb7 100644 --- 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 index 6969a5634..be6c2325f 100644 --- 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 index b1436bb36..a265be9a0 100644 --- 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 index 030cfa0a1..a6222935d 100644 --- 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 index a41f9ed46..b8a9bdc2e 100644 --- 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 index 69d950d84..653c5a4e9 100644 --- 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 ```