options for strict tests; few enhancements

insightsengineering · Jan 24, 2024 · 38c159e · 38c159e
1 parent e4a4c54
commit 38c159e
Show file tree

Hide file tree

Showing 47 changed files with 24 additions and 53 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,7 +31,8 @@ Suggests:
     diffdf,
     knitr (>= 1.42),
     rmarkdown (>= 2.19),
-    testthat (>= 3.0.4)
+    testthat (>= 3.0.4),
+    withr (>= 2.0.0)
 VignetteBuilder:
     knitr
 RdMacros:
@@ -40,11 +41,11 @@ Config/Needs/verdepcheck: mllg/checkmate, tidyverse/dplyr,
     r-lib/lifecycle, tidyverse/lubridate, tidyverse/magrittr, r-lib/rlang,
     tidyverse/stringr, tidyverse/tibble, tidyverse/tidyr,
     yaml=vubiostat/r-yaml, gowerc/diffdf, yihui/knitr, rstudio/rmarkdown,
-    r-lib/testthat
+    r-lib/testthat, r-lib/withr
 Config/Needs/website: insightsengineering/nesttemplate
 Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.0
diff --git a/R/radab.R b/R/radab.R
@@ -17,7 +17,6 @@
 #' @details One record per study per subject per parameter per time point: "R1800000", "RESULT1", "R1800001", "RESULT2".
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #' adpc <- radpc(adsl, seed = 2, duration = 9 * 7)
 #'

diff --git a/R/radae.R b/R/radae.R
@@ -18,7 +18,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, study_duration = 2, seed = 1)
 #'
 #' adae <- radae(adsl, seed = 2)

diff --git a/R/radaette.R b/R/radaette.R
@@ -21,7 +21,6 @@
 #' @author Xiuting Mi
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adaette <- radaette(adsl, seed = 2)

diff --git a/R/radcm.R b/R/radcm.R
@@ -19,7 +19,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adcm <- radcm(adsl, seed = 2)

diff --git a/R/raddv.R b/R/raddv.R
@@ -19,7 +19,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' addv <- raddv(adsl, seed = 2)

diff --git a/R/radeg.R b/R/radeg.R
@@ -21,7 +21,6 @@
 #' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adeg <- radeg(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)

diff --git a/R/radex.R b/R/radex.R
@@ -21,7 +21,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, study_duration = 2, seed = 1)
 #'
 #' adex <- radex(adsl, seed = 2)

diff --git a/R/radhy.R b/R/radhy.R
@@ -19,7 +19,6 @@
 #' @author wojciakw
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adhy <- radhy(adsl, seed = 2)

diff --git a/R/radlb.R b/R/radlb.R
@@ -21,7 +21,6 @@
 #' @author tomlinsj, npaszty, Xuefeng Hou
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adlb <- radlb(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)

diff --git a/R/radmh.R b/R/radmh.R
@@ -18,7 +18,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, study_duration = 2, seed = 1)
 #'
 #' admh <- radmh(adsl, seed = 2)

diff --git a/R/radpc.R b/R/radpc.R
@@ -18,7 +18,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adpc <- radpc(adsl, seed = 2)

diff --git a/R/radpp.R b/R/radpp.R
@@ -17,7 +17,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adpp <- radpp(adsl, seed = 2)

diff --git a/R/radqlqc.R b/R/radqlqc.R
@@ -19,7 +19,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, study_duration = 2, seed = 1)
 #'
 #' adqlqc <- radqlqc(adsl, seed = 1, percent = 80, number = 2)

diff --git a/R/radqs.R b/R/radqs.R
@@ -19,7 +19,6 @@
 #' @author npaszty
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adqs <- radqs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)

diff --git a/R/radrs.R b/R/radrs.R
@@ -21,7 +21,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adrs <- radrs(adsl, seed = 2)

diff --git a/R/radsaftte.R b/R/radsaftte.R
@@ -14,7 +14,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adsaftte <- radsaftte(adsl, seed = 2)

diff --git a/R/radsl.R b/R/radsl.R
@@ -26,8 +26,6 @@
 #' @export
 #
 #' @examples
-#' library(random.cdisc.data)
-#'
 #' adsl <- radsl(N = 10, study_duration = 2, seed = 1)
 #' adsl
 #'

diff --git a/R/radsub.R b/R/radsub.R
@@ -21,7 +21,6 @@
 #' @keywords internal
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 5, seed = 1)
 #'
 #' df_with_measurements <- random.cdisc.data:::h_anthropometrics_by_sex(df = adsl)
@@ -97,7 +96,6 @@ h_anthropometrics_by_sex <- function(df,
 #' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adsub <- radsub(adsl, seed = 2)

diff --git a/R/radtr.R b/R/radtr.R
@@ -20,7 +20,6 @@
 #' @author tomlinsj, npaszty, Xuefeng Hou, dipietrc
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adtr <- radtr(adsl, seed = 2)

diff --git a/R/radtte.R b/R/radtte.R
@@ -18,7 +18,6 @@
 #' @export
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' adtte <- radtte(adsl, seed = 2)

diff --git a/R/radvs.R b/R/radvs.R
@@ -19,7 +19,6 @@
 #' @author npaszty
 #'
 #' @examples
-#' library(random.cdisc.data)
 #' adsl <- radsl(N = 10, seed = 1, study_duration = 2)
 #'
 #' advs <- radvs(adsl, visit_format = "WEEK", n_assessments = 7L, seed = 2)

diff --git a/man/h_anthropometrics_by_sex.Rd b/man/h_anthropometrics_by_sex.Rd
diff --git a/man/radab.Rd b/man/radab.Rd
diff --git a/man/radae.Rd b/man/radae.Rd
diff --git a/man/radaette.Rd b/man/radaette.Rd
diff --git a/man/radcm.Rd b/man/radcm.Rd
diff --git a/man/raddv.Rd b/man/raddv.Rd
diff --git a/man/radeg.Rd b/man/radeg.Rd
diff --git a/man/radex.Rd b/man/radex.Rd
diff --git a/man/radhy.Rd b/man/radhy.Rd
diff --git a/man/radlb.Rd b/man/radlb.Rd
diff --git a/man/radmh.Rd b/man/radmh.Rd
diff --git a/man/radpc.Rd b/man/radpc.Rd
diff --git a/man/radpp.Rd b/man/radpp.Rd
diff --git a/man/radqlqc.Rd b/man/radqlqc.Rd
diff --git a/man/radqs.Rd b/man/radqs.Rd
diff --git a/man/radrs.Rd b/man/radrs.Rd
diff --git a/man/radsaftte.Rd b/man/radsaftte.Rd
diff --git a/man/radsl.Rd b/man/radsl.Rd
diff --git a/man/radsub.Rd b/man/radsub.Rd
diff --git a/man/radtr.Rd b/man/radtr.Rd
diff --git a/man/radtte.Rd b/man/radtte.Rd
diff --git a/man/radvs.Rd b/man/radvs.Rd
diff --git a/tests/testthat/setup-options.R b/tests/testthat/setup-options.R
@@ -0,0 +1,17 @@
+opts_partial_match_old <- list(
+  warnPartialMatchDollar = getOption("warnPartialMatchDollar"),
+  warnPartialMatchArgs = getOption("warnPartialMatchArgs"),
+  warnPartialMatchAttr = getOption("warnPartialMatchAttr")
+)
+opts_partial_match_new <- list(
+  warnPartialMatchDollar = TRUE,
+  warnPartialMatchArgs = TRUE,
+  warnPartialMatchAttr = TRUE
+)
+
+if (isFALSE(getFromNamespace("on_cran", "testthat")()) && require("withr")) {
+  withr::local_options(
+    opts_partial_match_new,
+    .local_envir = testthat::teardown_env()
+  )
+}