Replace scda w/ random.cdisc.data for table 22 examples and tests

jknizia · jknizia · commit 9f181f883307 · 2024-02-20T10:56:33.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,7 +27,6 @@ Imports:
     rlang (>= 0.4.11),
     rlistings (>= 0.2.7),
     rtables (>= 0.6.6),
-    scda,
     tfrmt,
     tidyr,
     Tplyr
diff --git a/R/fda-table_22.R b/R/fda-table_22.R
@@ -18,7 +18,7 @@
 #' @examples
 #' library(dplyr)
 #'
-#' adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
+#' adsl <- random.cdisc.data::cadsl %>%
 #'   mutate(AGEGR1 = as.factor(case_when(
 #'     AGE >= 17 & AGE < 65 ~ ">=17 to <65",
 #'     AGE >= 65 ~ ">=65",
@@ -29,7 +29,7 @@
 #'     AGE = "Age, years"
 #'   )
 #'
-#' adae <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adae")
+#' adae <- random.cdisc.data::cadae
 #'
 #' df <- left_join(adsl, adae, by = intersect(names(adsl), names(adae)))
 #'
diff --git a/man/make_table_22.Rd b/man/make_table_22.Rd
diff --git a/tests/testthat/test-fda-table_22.R b/tests/testthat/test-fda-table_22.R
@@ -1,4 +1,4 @@
-adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
+adsl <- random.cdisc.data::cadsl %>%
   mutate(AGEGR1 = as.factor(case_when(
     AGE >= 17 & AGE < 65 ~ ">=17 to <65",
     AGE >= 65 ~ ">=65",
@@ -10,7 +10,7 @@ adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
     AGE = "Age, years"
   )
 
-adae <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adae")
+adae <- random.cdisc.data::cadae
 
 df <- left_join(adsl, adae, by = intersect(names(adsl), names(adae)))
 
