Merge pull request #35 from Merck/add_empty_row

add empty row between categotical group and statistics
Merck · Jul 31, 2024 · 5b7b676 · 5b7b676
2 parents c3ead88 + c266573
commit 5b7b676
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 116 deletions.
diff --git a/R/collect.R b/R/collect.R
@@ -199,8 +199,8 @@ collect_baseline <- function(
       }
     }
 
-    pop_num <- rbind(pop_num_group, pop_num)
-    pop_prop <- rbind(pop_prop_group, pop_prop)
+    pop_num <- rbind(pop_num_group, rep(NA, ncol(pop_num)), pop_num)
+    pop_prop <- rbind(pop_prop_group, rep(NA, ncol(pop_num)), pop_prop)
   }
 
   # variable lower level

diff --git a/R/react_base_char.R b/R/react_base_char.R
@@ -201,7 +201,7 @@ react_base_char <- function(
     details = function(index) {
       if (index > 1 &
         !(tolower(tbl_sl$name[index]) %in% c("mean", "sd", "median", "min", "max", "se", "q1", "q3", "q1 to q3", "range")) &
-        tbl_sl$var_label[index] %in% ae_subgrp_label
+        tbl_sl$var_label[index] %in% ae_subgrp_label & !is.na(tbl_sl$name[index])
       ) {
         # get the index of the AE subgroup variable by the index in the baseline char table
         idx_ae_subgroup <- which(tbl_sl$var_label[index] == ae_subgrp_label)

diff --git a/R/rtf_base_char_subgroup.R b/R/rtf_base_char_subgroup.R
@@ -31,6 +31,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' meta <- meta_sl_example()
 #' 
 #' outdata <- prepare_base_char_subgroup(
@@ -49,7 +50,7 @@
 #'     path_outdata = tempfile(fileext = ".Rdata"),
 #'     path_outtable = tempfile(fileext = ".rtf")
 #'  )
-#'  
+#'  }
 rtf_base_char_subgroup <- function(
     outdata,
     source,

diff --git a/man/rtf_base_char_subgroup.Rd b/man/rtf_base_char_subgroup.Rd
diff --git a/tests/testthat/test-independent-testing-rtf_base_char.R b/tests/testthat/test-independent-testing-rtf_base_char.R
@@ -1,9 +1,8 @@
 # library(metalite)
 # 
 # meta <- meta_sl_example()
-# outdata <- prepare_sl_summary(meta,
+# outdata <- prepare_base_char(meta,
 #   population = "apat",
-#   observation = "apat",
 #   parameter = "age;gender"
 # )
 # 

diff --git a/vignettes/metalite-sl-subgroup.Rmd b/vignettes/metalite-sl-subgroup.Rmd