autoslider.core (version 0.2.5)

slides_from_rds: Generate slides from rds files

Description

Generate slides from rds files

Usage

slides_from_rds(
  filenames,
  outfile = paste0(tempdir(), "/output.pptx"),
  template = file.path(system.file(package = "autoslider.core"), "theme/basic.pptx")
)

Value

No return value, called for side effects

Arguments

filenames

List of file names

outfile

Out file path

template

Template file path

Examples

if (FALSE) { # require(filters)
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")))
}