Save an Output
save_output(output, file_name, save_rds = TRUE)
save_output(output, file_name, save_rds = TRUE)
save_output.autoslider_error(output, file_name, save_rds = TRUE)
# S4 method for class 'dVTableTree'
save_output(output, file_name, save_rds = TRUE)
save_output.decoratedGrob(output, file_name, save_rds = TRUE)
save_output.decoratedGrobSet(output, file_name, save_rds = TRUE)
save_output.dlisting(output, file_name, save_rds = TRUE)
The input `object` invisibly
No return value, called for side effects
The input `object` invisibly
The input `object` invisibly
The input `object` invisibly
Tables are saved as RDS file
library(dplyr)
adsl <- eg_adsl %>%
filter(SAFFL == "Y") %>%
mutate(TRT01P = factor(TRT01P, levels = c("A: Drug X", "B: Placebo")))
output_dir <- tempdir()
t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE", "ETHNIC", "COUNTRY")) %>%
decorate(
title = "Demographic table",
footnote = ""
) %>%
save_output(
file_name = file.path(output_dir, "t_dm_SE"),
save_rds = TRUE
)