Merge f808c40 into 0a1ff45

DESCRIPTION

@@ -40,17 +40,13 @@ Imports:
 Suggests:
     knitr,
     rmarkdown,
-    scda (>= 0.1.5),
-    scda.2022 (>= 0.1.3),
     shinytest,
     testthat (>= 3.1.5)
 VignetteBuilder:
     knitr
 RdMacros:
     lifecycle
 Remotes:
-    insightsengineering/scda.2022@*release,
-    insightsengineering/scda@*release,
     insightsengineering/teal.code@*release,
     insightsengineering/teal.data@*release,
     insightsengineering/teal.logger@*release,

NEWS.md

@@ -16,7 +16,7 @@
 
 ### Miscellaneous
 
-* Examples use `scda.2022` instead of `scda.2021`
+* Removed `scda` package dependency from examples.
 
 # teal.transform 0.2.0
 

R/choices_labeled.R

@@ -21,10 +21,9 @@
 #'
 #' @examples
 #' library(shiny)
-#' library(scda)
 #'
-#' ADSL <- synthetic_cdisc_data("latest")$adsl
-#' ADTTE <- synthetic_cdisc_data("latest")$adtte
+#' ADSL <- rADSL
+#' ADTTE <- rADTTE
 #' choices1 <- choices_labeled(names(ADSL), formatters::var_labels(ADSL, fill = FALSE))
 #' choices2 <- choices_labeled(ADTTE$PARAMCD, ADTTE$PARAM)
 #' # if only a subset of variables are needed, use subset argument
@@ -141,9 +140,7 @@ choices_labeled <- function(choices, labels, subset = NULL, types = NULL) {
 #' @export
 #'
 #' @examples
-#' library(scda)
-#' ADRS <- synthetic_cdisc_data("latest")$adrs
-#'
+#' ADRS <- rADRS
 #' variable_choices(ADRS)
 #' variable_choices(ADRS, subset = c("PARAM", "PARAMCD"))
 #' variable_choices(ADRS, subset = c("", "PARAM", "PARAMCD"))
@@ -300,9 +297,7 @@ variable_choices.TealDatasetConnector <- function(data, # nolint
 #' @export
 #'
 #' @examples
-#' library(scda)
-#' ADRS <- synthetic_cdisc_data("latest")$adrs
-#'
+#' ADRS <- rADRS
 #' value_choices(ADRS, "PARAMCD", "PARAM", subset = c("BESRSPI", "INVET"))
 #' value_choices(ADRS, c("PARAMCD", "ARMCD"), c("PARAM", "ARM"))
 #' value_choices(ADRS, c("PARAMCD", "ARMCD"), c("PARAM", "ARM"),

R/choices_selected.R

@@ -46,8 +46,7 @@ no_select_keyword <- "-- no selection --"
 #'   selected = "C"
 #' )
 #'
-#' library(scda)
-#' ADSL <- synthetic_cdisc_data("latest")$adsl
+#' ADSL <- rADSL
 #' choices_selected(variable_choices(ADSL), "SEX")
 #'
 #' # How to select nothing

R/data.R

@@ -0,0 +1,64 @@
+#' Random adverse events
+#'
+#' @description Random adverse events
+#' @docType data
+#'
+#' @usage data(rADAE)
+#'
+#' @keywords datasets internal
+#'
+#' @source internal
+#' @name rADAE
+"rADAE"
+
+#' Random lab analysis
+#'
+#' @description Random lab analysis
+#' @docType data
+#'
+#' @usage data(rADLB)
+#'
+#' @keywords datasets internal
+#'
+#' @source internal
+#' @name rADLB
+"rADLB"
+
+#' Random response
+#'
+#' @description Random response
+#' @docType data
+#'
+#' @usage data(rADRS)
+#'
+#' @keywords datasets internal
+#'
+#' @source internal
+#' @name rADRS
+"rADRS"
+
+#' Random patient listing
+#'
+#' @description Random patient listing
+#' @docType data
+#'
+#' @keywords datasets internal
+#'
+#' @usage data(rADSL)
+#'
+#' @source internal
+#' @name rADSL
+"rADSL"
+
+#' Random Time to Event Analysis Dataset
+#'
+#' @description Random Time to Event Analysis Dataset
+#' @docType data
+#'
+#' @keywords datasets internal
+#'
+#' @usage data(rADTTE)
+#'
+#' @source internal
+#' @name rADTTE
+"rADTTE"

R/filter_spec.R

@@ -222,8 +222,7 @@ filter_spec <- function(vars,
 #'   vars_multiple = TRUE
 #' )
 #'
-#' library(scda)
-#' ADRS <- synthetic_cdisc_data("latest")$adrs
+#' ADRS <- rADRS
 #' teal.transform:::filter_spec_internal(
 #'   vars_choices = variable_choices(ADRS),
 #'   vars_selected = "PARAMCD",

R/resolve.R

@@ -10,9 +10,7 @@
 #' @return Resolved object.
 #'
 #' @examples
-#' library(scda)
-#'
-#' ADSL <- synthetic_cdisc_data("latest")$adsl
+#' ADSL <- rADSL
 #' attr(ADSL, "keys") <- teal.data::get_cdisc_keys("ADSL")
 #' data_list <- list(ADSL = shiny::reactive(ADSL))
 #' keys <- list(ADSL = attr(ADSL, "keys"))

R/resolve_delayed.R

@@ -12,9 +12,7 @@
 #' @export
 #'
 #' @examples
-#' library(scda)
-#'
-#' ADSL <- synthetic_cdisc_data("latest")$adsl
+#' ADSL <- rADSL
 #' shiny::isolate({
 #'   ds <- teal.slice::init_filtered_data(
 #'     list(ADSL = list(

staged_dependencies.yaml

@@ -18,12 +18,6 @@ upstream_repos:
   insightsengineering/teal.slice:
     repo: insightsengineering/teal.slice
     host: https://github.com
-  insightsengineering/scda:
-    repo: insightsengineering/scda
-    host: https://github.com
-  insightsengineering/scda.2022:
-    repo: insightsengineering/scda.2022
-    host: https://github.com
   insightsengineering/formatters:
     repo: insightsengineering/formatters
     host: https://github.com

tests/testthat/test-data_extract_module.R

@@ -1,7 +1,5 @@
-library(scda)
-ADSL <- synthetic_cdisc_data("rcd_2022_06_27")$adsl # nolint
-ADLB <- synthetic_cdisc_data("rcd_2022_06_27")$adlb # nolint
-ADTTE <- synthetic_cdisc_data("rcd_2022_06_27")$adtte # nolint
+ADLB <- rADLB # nolint
+ADTTE <- rADTTE # nolint
 
 testthat::test_that("Single filter", {
   data_extract <- data_extract_spec(