updating tests

NAMESPACE

@@ -10,7 +10,6 @@ S3method(to_flextable,dlisting)
 export(autoslider_dose_format)
 export(autoslider_error)
 export(autoslider_format)
-export(black_format)
 export(blue_format)
 export(build_table_header)
 export(check_and_set_cutoff)
@@ -71,7 +70,6 @@ export(t_ds_slide)
 export(to_vector)
 export(trim_perc)
 export(trim_perc1)
-export(white_format)
 import(assertthat)
 import(dplyr)
 import(flextable)

R/ft_formats.R

@@ -127,38 +127,3 @@ autoslider_dose_format <- function(ft, header_vals = names(ft)) {
     bold(part = "header") %>%
     border_remove()
 }
-
-#' @describeIn autoslider_format
-#'
-#' White color theme
-#'
-#' @param ft flextable object
-#' @param ... arguments passed to program
-#'
-#' @export
-white_format <- function(ft, ...) {
-  ft <- do_call(autoslider_dose_format, ft = ft, ...)
-  ft %>%
-    color(color = "white", part = "header") %>%
-    bg(bg = "#0B41CD", part = "header") %>%
-    border_inner(part = "body", border = fp_border(color = "#F5F5F2")) %>%
-    border_outer(part = "body", border = fp_border(color = "#F5F5F2"))
-}
-
-
-#' @describeIn autoslider_format
-#'
-#' Black color theme
-#'
-#' @param ft flextable object
-#' @param ... arguments passed to program
-#'
-#' @export
-black_format <- function(ft, ...) {
-  ft <- do_call(autoslider_dose_format, ft = ft, ...)
-  ft %>%
-    color(color = "blue", part = "header") %>%
-    border_inner_h(part = "all", border = fp_border(color = "black")) %>%
-    hline_top(part = "all", border = fp_border(color = "black", width = 2)) %>%
-    hline_bottom(part = "all", border = fp_border(color = "black", width = 2))
-}

inst/filters.yml

@@ -148,3 +148,18 @@ FEWSBJ:
   condition: SUBJID %in% c("id-267", "id-206", "id-188", "id-389", "id-140")
   target: adsl
   type: anl
+CRP:
+  title: NA_character_
+  condition: PARAMCD == "CRP"
+  target: adlb
+  type: ref
+HR:
+  title: NA_character_
+  condition: PARAMCD == "HR"
+  target: adeg
+  type: ref
+ADSL:
+  title: NA_character_
+  condition: 1==1
+  target: adsl
+  type: ref

inst/spec.yml

@@ -348,3 +348,15 @@
   titles:  Listing of Laboratory Abnormalities
   footnotes: ''
   suffix: LBCRP_FEWSBJ_SE
+- program: g_vs_slide
+  titles:  ''
+  footnotes: ''
+  suffix: ADSL_SYSBP
+- program: g_lb_slide
+  titles:  ''
+  footnotes: ''
+  suffix: ADSL_CRP
+- program: g_eg_slide
+  titles:  ''
+  footnotes: ''
+  suffix: ADSL_HR

tests/testthat/test-srep_outputs.R

@@ -29,7 +29,9 @@ test_that("Listing print correctly", {
       "t_tte_slide",
       "t_orr_slide",
       # "l_dsl01_slide",
-      "g_mean_slide",
+      "g_vs_slide",
+      "g_lab_slide",
+      "g_eg_slide",
       "t_dm_slide",
       "t_vs_slide",
       "t_ae_summ_slide",