update

R/util.R

@@ -619,3 +619,8 @@ build_table_header <- function(anl,
 get_version_label_output <- function() {
   NULL
 }
+
+
+strip_NA <- function(input) {
+  return(input[which(input != "NA")])
+}

inst/WORDLIST

@@ -87,3 +87,11 @@ yaml
 yml
 yyyy
 ael
+AVAL
+eg
+EG
+lineplot
+mng
+PARAM
+PARAMCD
+thomas

tests/testthat/test-output-table-format.R

@@ -0,0 +1,50 @@
+test_that("save an autoslider output", {
+  output <- t_dm_slide(adsl = testdata$adsl) %>%
+    decorate(title = "test title", footnote = "") %>%
+    list()
+
+  outfile = paste0(tempdir(), "/output.pptx")
+  testthat::expect_no_error(
+    generate_slides(
+      output,
+      outfile = outfile,
+      table_format = autoslider_format
+    )
+  )
+
+  testthat::expect_no_error(
+    generate_slides(
+      output,
+      outfile = outfile,
+      template = outfile,
+      table_format = blue_format
+    )
+  )
+
+  testthat::expect_no_error(
+    generate_slides(
+      output,
+      outfile = outfile,
+      template = outfile,
+      table_format = orange_format
+    )
+  )
+
+  testthat::expect_no_error(
+    generate_slides(
+      output,
+      outfile = outfile,
+      template = outfile,
+      table_format = red_format
+    )
+  )
+
+  testthat::expect_no_error(
+    generate_slides(
+      output,
+      outfile = outfile,
+      template = outfile,
+      table_format = purple_format
+    )
+  )
+})