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