reproduce disposition snapshot

Merck · Aug 22, 2024 · 32c6bb9 · 32c6bb9
1 parent 0496ee0
commit 32c6bb9
Show file tree

Hide file tree

Showing 3 changed files with 136 additions and 135 deletions.
diff --git a/R/meta_sl_example.R b/R/meta_sl_example.R
@@ -38,7 +38,7 @@ meta_sl_example <- function() {
                       levels = c("F", "M"),
                       labels = c("Female", "Male")
   )
-
+  set.seed(123) 
   # Create a variable EOSSTT indicating the end of end of study status
   adsl$EOSSTT <- sample(x = c("Participants Ongoing", "Discontinued"),
                         size = length(adsl$USUBJID), 
@@ -170,6 +170,7 @@ meta_sl_exposure_example <- function() {
 
   adexsum$APERIODC <- "Base"
   adexsum$APERIOD <- 1
+  set.seed(123) 
   adexsum$AVAL <- sample(x = 0:(24*7), size = length(adexsum$USUBJID), replace = TRUE)
   adexsum$EXDURGR <- "not treated"
   adexsum$EXDURGR[adexsum$AVAL>=1] <- ">=1 day"

diff --git a/tests/testthat/_snaps/independent-testing-disposition/disposition1.rtf b/tests/testthat/_snaps/independent-testing-disposition/disposition1.rtf