Remove seed setting and replace \dontrun{} with \donttest{}

.Rbuildignore

@@ -8,4 +8,5 @@
 ^LICENSE_THIRD_PARTY\.md$
 ^\.github$
 ^codecov\.yml$
-^tests/testthat/_snaps$
+^tests/testthat/_snaps$
+^cran-comments\.md$

R/meta_sl_example.R

@@ -179,7 +179,6 @@ meta_sl_exposure_example <- function() {
   adexsum$APERIODC <- "Base"
   adexsum$APERIOD <- 1
 
-  set.seed(123) # Set a seed for reproducibility
   adexsum$AVAL <- sample(x = 0:(24 * 7), size = length(adexsum$USUBJID), replace = TRUE)
   adexsum$EXDURGR <- "not treated"
   adexsum$EXDURGR[adexsum$AVAL >= 1] <- ">=1 day and <7days"

R/rtf_base_char_subgroup.R

@@ -31,7 +31,7 @@
 #' @export
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' meta <- meta_sl_example()
 #'
 #' outdata <- prepare_base_char_subgroup(

cran-comments.md

@@ -0,0 +1,6 @@
+## Resubmission v0.1.0
+
+This is a resubmission. In this version, I have fixed the issues identified in v0.1.0:
+
+-   Remove seed setting in `meta_sl_example()` to avoid to specify a seed in a function.
+-   Replace `\dontrun{}` with `\donttest{}` for an example of `rtf_base_char_subgroup()`.

tests/testthat/test-independent-testing-rtf_exp_duration.R

@@ -1,5 +1,6 @@
 library(metalite)
 
+set.seed(123)
 metatest <- meta_sl_exposure_example()
 
 outdata <- prepare_sl_summary(