remove datanames()

insightsengineering · Jan 22, 2025 · 16cf50a · 16cf50a
1 parent 4f07c33
commit 16cf50a
Show file tree

Hide file tree

Showing 12 changed files with 26 additions and 24 deletions.
diff --git a/R/adtteSpec.R b/R/adtteSpec.R
@@ -222,9 +222,7 @@ adtteSpecInput <- function(inputId, # nolint
 #'       dplyr::mutate(is_event = .data$CNSR == 0)
 #'     MAE <- hermes::multi_assay_experiment
 #'   })
-#'   datanames <- c("ADSL", "ADTTE", "MAE")
-#'   datanames(data) <- datanames
-#'   join_keys(data) <- default_cdisc_join_keys[datanames]
+#'   join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADTTE", "MAE")]
 #'
 #'   app <- init(
 #'     data = data,

diff --git a/R/barplot.R b/R/barplot.R
@@ -266,7 +266,10 @@ srv_g_barplot <- function(id,
 #'   sample_tm_g_barplot()
 #' }
 sample_tm_g_barplot <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE = hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/R/boxplot.R b/R/boxplot.R
@@ -265,7 +265,10 @@ srv_g_boxplot <- function(id,
 #'   sample_tm_g_boxplot()
 #' }
 sample_tm_g_boxplot <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE = hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/R/forestplot.R b/R/forestplot.R
@@ -19,8 +19,6 @@
 #'     dplyr::mutate(is_event = .data$CNSR == 0)
 #'   MAE <- hermes::multi_assay_experiment
 #' })
-#' datanames <- c("ADTTE", "MAE")
-#' datanames(data) <- datanames
 #' join_keys(data)["ADTTE", "ADTTE"] <- c("STUDYID", "USUBJID", "PARAMCD")
 #'
 #' app <- init(
@@ -311,8 +309,6 @@ sample_tm_g_forest_tte <- function(.test = FALSE) { # nolint
       dplyr::mutate(is_event = .data$CNSR == 0)
     MAE <- hermes::multi_assay_experiment # nolint
   })
-  datanames <- c("ADTTE", "MAE")
-  datanames(data) <- datanames
   join_keys(data)["ADTTE", "ADTTE"] <- c("STUDYID", "USUBJID", "PARAMCD")
 
   app <- teal::init(

diff --git a/R/km.R b/R/km.R
@@ -20,8 +20,6 @@
 #'     dplyr::mutate(is_event = .data$CNSR == 0)
 #'   MAE <- hermes::multi_assay_experiment
 #' })
-#' datanames <- c("ADTTE", "MAE")
-#' datanames(data) <- datanames
 #' join_keys(data)["ADTTE", "ADTTE"] <- c("STUDYID", "USUBJID", "PARAMCD")
 #'
 #'
@@ -307,8 +305,6 @@ sample_tm_g_km <- function(.test = FALSE) { # nolint
       dplyr::mutate(is_event = .data$CNSR == 0)
     MAE <- hermes::multi_assay_experiment # nolint
   })
-  datanames <- c("ADTTE", "MAE")
-  datanames(data) <- datanames
   join_keys(data)["ADTTE", "ADTTE"] <- c("STUDYID", "USUBJID", "PARAMCD")
 
   modules <- teal::modules(

diff --git a/R/pca.R b/R/pca.R
@@ -463,7 +463,10 @@ srv_g_pca <- function(id,
 #'   sample_tm_g_pca()
 #' }
 sample_tm_g_pca <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE <- hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/R/quality.R b/R/quality.R
@@ -440,7 +440,10 @@ srv_g_quality <- function(id,
 #'   sample_tm_g_quality()
 #' }
 sample_tm_g_quality <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE <- hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/R/scatterplot.R b/R/scatterplot.R
@@ -259,7 +259,10 @@ srv_g_scatterplot <- function(id,
 #'   sample_tm_g_scatterplot()
 #' }
 sample_tm_g_scatterplot <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE <- hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/R/volcanoplot.R b/R/volcanoplot.R
@@ -279,7 +279,10 @@ srv_g_volcanoplot <- function(id,
 #'   sample_tm_g_volcanoplot()
 #' }
 sample_tm_g_volcanoplot <- function(.test = FALSE) {
-  data <- teal.data::teal_data(MAE = hermes::multi_assay_experiment)
+  data <- within(
+    teal.data::teal_data(),
+    MAE <- hermes::multi_assay_experiment
+  )
   app <- teal::init(
     data = data,
     modules = teal::modules(

diff --git a/man/adtteSpecServer.Rd b/man/adtteSpecServer.Rd
diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd
diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd