Merge branch 'main' into 388_update_args_scope@main

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: chevron
 Title: Standard TLGs For Clinical Trials Reporting
-Version: 0.1.1.9047
-Date: 2023-03-08
+Version: 0.1.1.9049
+Date: 2023-03-10
 Authors@R: c(
     person("Benoit", "Falquet", , "[email protected]", role = c("aut", "cre")),
     person("Adrian", "Waddell", , "[email protected]", role = "aut"),
@@ -20,14 +20,14 @@ Imports:
     dplyr,
     dunlin (> 0.1.1),
     forcats (>= 1.0.0),
-    formatters (> 0.3.4),
+    formatters (>= 0.4.0),
     ggplot2 (>= 3.4.0),
     magrittr,
     methods,
     nestcolor (>= 0.1.0),
     rlang,
     rlistings (> 0.1.1),
-    rtables (> 0.5.3),
+    rtables (>= 0.6.0),
     scda (>= 0.1.5),
     scda.2022 (>= 0.1.3),
     tern (>= 0.7.10.9031),

NAMESPACE

@@ -137,6 +137,8 @@ export(get_adam_datasets)
 export(get_main)
 export(get_postprocess)
 export(get_preprocess)
+export(gg_list)
+export(grob_list)
 export(h_format_dec)
 export(lbt01_1)
 export(lbt01_1_lyt)

NEWS.md

@@ -1,3 +1,3 @@
-# chevron 0.1.1.9047
+# chevron 0.1.1.9049
 
 * First release with implementation of: `AET01`, `AET02`, `AET03`, `AET04`, `CMT01A`, `CMT02_PT`, `DMT01`, `DST01`, `DTHT01`, `EGT01`, `EGT02`, `EXT01`, `LBT01`, `MHT01`, `MNG01`, `VST01`, `VST02`.

R/mng01.R

@@ -136,7 +136,7 @@ mng01_1_main <- function(adam_db,
     col <- line_col
   }
 
-  lapply(
+  ret <- lapply(
     data_ls,
     tern::g_lineplot,
     alt_count = adam_db[["adsl"]],
@@ -151,6 +151,7 @@ mng01_1_main <- function(adam_db,
     col = col,
     subtitle_add_unit = !is.na(y_unit)
   )
+  do.call(gg_list, ret)
 }
 
 #' @describeIn mng01_1 Preprocessing

R/utils.R

@@ -407,3 +407,27 @@ fuse_sequentially <- function(x, y) {
 
   c(x, y[sel_names_y])
 }
+
+#' List of `grob` object
+#' @param ... (`grob`) objects
+#' @export
+grob_list <- function(...) {
+  ret <- list(...)
+  checkmate::assert_list(ret, types = c("grob"))
+  structure(
+    ret,
+    class = c("grob_list", "list")
+  )
+}
+
+#' List of `gg` object
+#' @param ... (`ggplot`) objects
+#' @export
+gg_list <- function(...) {
+  ret <- list(...)
+  checkmate::assert_list(ret, types = c("ggplot"))
+  structure(
+    ret,
+    class = c("gg_list", "list")
+  )
+}

_pkgdown.yaml

@@ -91,6 +91,8 @@ reference:
       - syn_test_data
       - var_labels_for
       - h_format_dec
+      - gg_list
+      - grob_list
 
   - title: Non-exported Documented Functions for Packagage Developers
     contents:

inst/WORDLIST

@@ -2,6 +2,8 @@ ADEG
 ADaM
 AESI
 CTCAE
+gg
+gg_list
 Hoffmann
 PARAMCD
 NCI