update

insightsengineering · Nov 15, 2024 · c572d97 · c572d97
1 parent bfcd651
commit c572d97
Show file tree

Hide file tree

Showing 14 changed files with 19 additions and 13 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -23,3 +23,9 @@ LICENSE
 
 # dev
 tmp/
+ae.pptx
+ae_summary.pptx
+dd.pptx
+dm.pptx
+dor.pptx
+  ‘output.pptx’
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,7 +21,7 @@ Authors@R: c(
     person("Chenkai", "Lv", role = "aut")
   )
 Description: Clinical TLG slide automation empowered by `rtables`, `rlistings` and `ggplot2`.
-License: Apache License 2.0 | file LICENSE
+License: Apache License 2.0 
 URL: https://github.com/insightsengineering/autoslider.core
 BugReports: https://github.com/insightsengineering/autoslider.core/issues
 Depends:

diff --git a/R/t_ae_slide.R b/R/t_ae_slide.R
@@ -19,7 +19,7 @@
 #'   )
 #' out <- t_ae_slide(adsl, adae, "TRT01A")
 #' print(out)
-#' generate_slides(out, "ae.pptx")
+#' generate_slides(out, paste0(tempdir(), "/ae.pptx"))
 t_ae_slide <- function(adsl, adae, arm = "TRT01A",
                        split_by_study = FALSE, side_by_side = NULL) {
   assert_that(has_name(adae, "AEDECOD"))

diff --git a/R/t_ae_summary_slide.R b/R/t_ae_summary_slide.R
@@ -48,7 +48,7 @@
 #'   )
 #' )
 #' print(out)
-#' generate_slides(out, "ae_summary.pptx")
+#' generate_slides(out, paste0(tempdir(), "/ae_summary.pptx"))
 t_ae_summ_slide <- function(adsl, adae, arm = "TRT01A",
                             dose_adjust_flags = NA,
                             dose_adjust_labels = NA,

diff --git a/R/t_dd_slide.R b/R/t_dd_slide.R
@@ -13,7 +13,7 @@
 #' adsl <- eg_adsl %>% preprocess_t_dd()
 #' out1 <- t_dd_slide(adsl, "TRT01A")
 #' print(out1)
-#' generate_slides(out1, "dd.pptx")
+#' generate_slides(out1, paste0(tempdir(), "/dd.pptx"))
 #'
 #' out2 <- t_dd_slide(adsl, "TRT01A", split_by_study = TRUE)
 #' print(out2)

diff --git a/R/t_dm_slide.R b/R/t_dm_slide.R
@@ -14,7 +14,7 @@
 #' adsl <- eg_adsl
 #' out1 <- t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE", "ETHNIC", "COUNTRY"))
 #' print(out1)
-#' generate_slides(out1, "dm.pptx")
+#' generate_slides(out1, paste0(tempdir(), "/dm.pptx"))
 #'
 #' out2 <- t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE", "ETHNIC", "COUNTRY"),
 #'   split_by_study = TRUE

diff --git a/R/t_dor_slide.R b/R/t_dor_slide.R
@@ -15,7 +15,7 @@
 #'   dplyr::mutate(TRT01P = factor(TRT01P, levels = c("A: Drug X", "B: Placebo", "C: Combination")))
 #' out <- t_dor_slide(adsl, adtte)
 #' print(out)
-#' generate_slides(out, "dor.pptx")
+#' generate_slides(out, paste0(tempdir(), "/dor.pptx"))
 t_dor_slide <- function(adsl, adtte, arm = "TRT01P", refgroup = NULL) {
   assert_that(has_name(adsl, arm))
   assert_that(has_name(adtte, "CNSR"))

diff --git a/R/to_slides.R b/R/to_slides.R
@@ -44,7 +44,7 @@
 #' t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>%
 #'   generate_slides()
 generate_slides <- function(outputs,
-                            outfile = "output.pptx",
+                            outfile = paste0(tempdir(), "/output.pptx"),
                             template = file.path(system.file(package = "autoslider.core"), "theme/basic.pptx"),
                             fig_width = 9, fig_height = 6, t_lpp = 20, t_cpp = 200, l_lpp = 20, l_cpp = 150, ...) {
   if (any(c(

diff --git a/man/generate_slides.Rd b/man/generate_slides.Rd
diff --git a/man/t_ae_slide.Rd b/man/t_ae_slide.Rd
diff --git a/man/t_ae_summ_slide.Rd b/man/t_ae_summ_slide.Rd
diff --git a/man/t_dd_slide.Rd b/man/t_dd_slide.Rd
diff --git a/man/t_dm_slide.Rd b/man/t_dm_slide.Rd
diff --git a/man/t_dor_slide.Rd b/man/t_dor_slide.Rd