87 remove datasets - decrease package size (#818)

In the spirit of package size reduction insightsengineering/nestdevs-tasks#87 I replaced all the calls for tmg datasets with their respective datasets from teal.data. This way we no longer need to have datasets copies in tmg. --------- Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
insightsengineering · Dec 16, 2024 · 5cf5f14 · 5cf5f14
1 parent 46e5267
commit 5cf5f14
Show file tree

Hide file tree

Showing 54 changed files with 103 additions and 257 deletions.
diff --git a/R/data.R b/R/data.R
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -93,7 +93,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -106,7 +106,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -74,7 +74,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_front_page.R b/R/tm_front_page.R
@@ -25,7 +25,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #'   attr(ADSL, "metadata") <- list("Author" = "NEST team", "data_source" = "synthetic data")
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]

diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -86,7 +86,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -123,7 +123,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -94,7 +94,7 @@
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -104,7 +104,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -140,7 +140,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -122,8 +122,8 @@
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
-#'   ADSL <- rADSL
-#'   ADRS <- rADRS
+#'   ADSL <- teal.data::rADSL
+#'   ADRS <- teal.data::rADRS
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -90,7 +90,7 @@
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #'   ADRS <- rADRS
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]

diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -104,7 +104,7 @@
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -91,7 +91,7 @@
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
-#'   ADSL <- rADSL
+#'   ADSL <- teal.data::rADSL
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
@@ -61,8 +61,8 @@
 #' library(sparkline)
 #' data <- teal_data()
 #' data <- within(data, {
-#'   ADSL <- rADSL
-#'   ADTTE <- rADTTE
+#'   ADSL <- teal.data::rADSL
+#'   ADTTE <- teal.data::rADTTE
 #' })
 #' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'

diff --git a/data-raw/data.R b/data-raw/data.R
diff --git a/data/rADAE.rda b/data/rADAE.rda
diff --git a/data/rADLB.rda b/data/rADLB.rda
diff --git a/data/rADRS.rda b/data/rADRS.rda
diff --git a/data/rADSL.rda b/data/rADSL.rda
diff --git a/data/rADTTE.rda b/data/rADTTE.rda
diff --git a/man/rADAE.Rd b/man/rADAE.Rd
diff --git a/man/rADLB.Rd b/man/rADLB.Rd
diff --git a/man/rADRS.Rd b/man/rADRS.Rd
diff --git a/man/rADSL.Rd b/man/rADSL.Rd
diff --git a/man/rADTTE.Rd b/man/rADTTE.Rd
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