Merge branch 'main' into 546-fix-verdepcheck@main

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: chevron
 Title: Standard TLGs for Clinical Trials Reporting
-Version: 0.2.6.9005
-Date: 2024-05-23
+Version: 0.2.6.9006
+Date: 2024-06-05
 Authors@R: c(
     person("Liming", "Li", , "[email protected]", role = c("aut", "cre")),
     person("Benoit", "Falquet", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,4 +1,4 @@
-# chevron 0.2.6.9005
+# chevron 0.2.6.9006
 
 * Add `AEL02`, `AEL03` templates.
 * Modify the post processing of `MHT01` to allow multiple `row_split_var`.

tests/testthat/test-ael02.R

@@ -6,7 +6,7 @@ test_that("ael02 works with adae dataset", {
   )
   expect_list(res, len = 3)
   res <- lapply(res, "[", 1:10, )
-  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res, lpp = 100, cpp = 110)))
 })
 
 test_that("ael02 can handle all missing values", {
@@ -20,11 +20,12 @@ test_that("ael02 can handle all missing values", {
 
   res <- expect_silent(run(ael02, proc_data))
   expect_list(res, len = 1)
-  expect_snapshot(cat(export_as_txt(res[[1]][1:50, ], lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110)))
 })
 
 # ael02 functions ----
 
+
 test_that("ael02 functions work as expected", {
   res <- expect_silent(
     ael02_pre(syn_data) %>%
@@ -33,5 +34,5 @@ test_that("ael02 functions work as expected", {
 
   expect_list(res, len = 3)
   res <- lapply(res, "[", 1:10, )
-  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res, lpp = 100, cpp = 110)))
 })

tests/testthat/test-ael03.R

@@ -6,7 +6,7 @@ test_that("ael03 works with adae dataset", {
   )
   expect_list(res, len = 3)
   res <- lapply(res, "[", 1:10, )
-  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res, lpp = 100, cpp = 110)))
 })
 
 test_that("ael03 can handle all missing values", {
@@ -21,7 +21,7 @@ test_that("ael03 can handle all missing values", {
   res <- expect_silent(run(ael03, proc_data))
   expect_list(res, len = 1)
 
-  expect_snapshot(cat(export_as_txt(res[[1]][1:50, ], lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110)))
 })
 
 # ael03 functions ----
@@ -34,5 +34,5 @@ test_that("ael03 functions work as expected", {
 
   expect_list(res, len = 3)
   res <- lapply(res, "[", 1:10, )
-  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
+  expect_snapshot(cat(export_as_txt(res, lpp = 100, cpp = 110)))
 })

tests/testthat/test-utils.R

@@ -286,7 +286,10 @@ test_that("get_section_div works", {
 
 test_that("grob_list is deprecated", {
   withr::with_options(
-    list(lifecycle_verbosity = "warning"),
+    c(
+      opts_partial_match_old,
+      list(lifecycle_verbosity = "warning")
+    ),
     {
       graph <- run(chevron::mng01, syn_data, dataset = "adlb")
       graph <- ggplot2::ggplotGrob(graph[[3]])
@@ -303,7 +306,10 @@ test_that("grob_list is deprecated", {
 
 test_that("gg_list is deprecated", {
   withr::with_options(
-    list(lifecycle_verbosity = "warning"),
+    c(
+      opts_partial_match_old,
+      list(lifecycle_verbosity = "warning")
+    ),
     {
       graph <- run(chevron::mng01, syn_data, dataset = "adlb")