if (FALSE) { # require(filters)
library(dplyr)
filters::load_filters(
yaml_file = system.file("filters.yml", package = "autoslider.core"),
overwrite = TRUE
)
spec_file <- system.file("spec.yml", package = "autoslider.core")
spec <- spec_file %>% read_spec()
data <- list(
adsl = eg_adsl,
adae = eg_adae
)
generate_output("t_ae_slide", data, spec$t_ae_slide_SE)
}
Run the code above in your browser using DataLab