Merge pull request #38 from Merck/DEVR-3432-validate-exposure-dur-tbl

Check-in - DEVR-3432 validation

R/format_sl_summary.R

@@ -41,11 +41,21 @@ format_sl_summary <- function(
     display_col = c("n", "prop", "total"),
     digits_prop = 1,
     display_stat = c("mean", "sd", "se", "median", "q1 to q3", "range")) {
+
+
   n_group <- length(outdata$group_label)
 
+
+
+  # Check if the "tbl" element exists in the "outdata" object
+  if ("tbl" %in% names(outdata)) {
+    # If the element exists, delete it
+    outdata$tbl <- NULL
+  } 
+
   # Select statistics want to display
   for (i in 1:length(outdata$var_type)) {
-    if ("numeric" %in% outdata$var_type[[i]]) {
+    if ( ("integer" %in% outdata$var_type[[i]]) || ("numeric" %in% outdata$var_type[[i]]) ) {
       n_num <- outdata$char_n[[i]]
       n_num_group <- n_num[which(!tolower(n_num$name)
       %in% c(

R/meta_sl_example.R

@@ -170,7 +170,8 @@ meta_sl_exposure_example <- function() {
 
   adexsum$APERIODC <- "Base"
   adexsum$APERIOD <- 1
-  set.seed(123) 
+
+  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"

R/rtf_sl_summary.R

@@ -57,6 +57,9 @@ rtf_sl_summary <- function(
     path_outdata = NULL,
     path_outtable = NULL) {
   # Set default column width
+
+
+
   tbl <- outdata$tbl
   display_total <- "total" %in% outdata$display_col
   if (display_total == TRUE) {
@@ -91,7 +94,7 @@ rtf_sl_summary <- function(
 
   # Set default footnote
   footnotes_stat <- NULL
-  if ("numeric" %in% outdata$var_type) {
+  if (("integer" %in% outdata$var_type) || ("numeric" %in% outdata$var_type)) {
     if ("sd" %in% tolower(outdata$display_stat)) {
       footnotes_stat <- c(footnotes_stat, "SD=Standard deviation")
     }