slides_from_rds | R Documentation |
Generate slides from rds files
slides_from_rds(
filenames,
outfile = paste0(tempdir(), "/output.pptx"),
template = file.path(system.file(package = "autoslider.core"), "theme/basic.pptx")
)
filenames |
List of file names |
outfile |
Out file path |
template |
Template file path |
No return value, called for side effects
library(dplyr, warn.conflicts = FALSE)
data <- list(
adsl = eg_adsl,
adae = eg_adae,
adtte = eg_adtte
)
filters::load_filters(
yaml_file = system.file("filters.yml", package = "autoslider.core"),
overwrite = TRUE
)
## For this example the outputs will be saved in a temporary directory. In a
## production run this should be the reporting event's 'output' folder instead.
output_dir <- tempdir()
spec_file <- system.file("spec.yml", package = "autoslider.core")
read_spec(spec_file) %>%
filter_spec(program == "t_dm_slide") %>%
generate_outputs(datasets = data) %>%
decorate_outputs() %>%
save_outputs(outfolder = output_dir)
slides_from_rds(list.files(file.path(output_dir, "t_dm_slide_FAS.rds")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.