Running examples in ‘autoslider.core-Ex.R’ failed
The error most likely occurred in:

> ### Name: generate_slides
> ### Title: generate slides based on output
> ### Aliases: generate_slides
> 
> ### ** Examples
> 
> ## Don't show: 
> if (require(filters)) withAutoprint({ # examplesIf
+ ## End(Don't show)
+ 
+ # Example 1. When applying to the whole pipeline
+ library(dplyr)
+ data <- list(
+   adsl = eg_adsl %>% dplyr::mutate(FASFL = SAFFL),
+   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(program %in% c("t_dm_slide")) %>%
+   generate_outputs(datasets = data) %>%
+   decorate_outputs() %>%
+   generate_slides()
+ 
+ # Example 2. When applying to an rtable object or an rlisting object
+ adsl <- eg_adsl
+ t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>%
+   generate_slides()
+ ## Don't show: 
+ }) # examplesIf
Loading required package: filters
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- list(adsl = eg_adsl %>% dplyr::mutate(FASFL = SAFFL), 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(program %in% c("t_dm_slide")) %>% 
+     generate_outputs(datasets = data) %>% decorate_outputs() %>% generate_slides()
✔ 2/51 outputs matched the filter condition `program %in% c("t_dm_slide")`.
❯ Running program `t_dm_slide` with suffix 'FAS'.
Filter 'FAS' matched target ADSL.
400/400 records matched the filter condition `FASFL == 'Y'`.
⚠ Error: 'arg' must be of length 1
❯ Running program `t_dm_slide` with suffix 'FAS'.
Filter 'FAS' matched target ADSL.
400/400 records matched the filter condition `FASFL == 'Y'`.
⚠ Error: 'arg' must be of length 1
'arg' must be of length 1
'arg' must be of length 1
> adsl <- eg_adsl
> t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>% generate_slides()
Error in match.arg(round_type) : 'arg' must be of length 1
Calls: withAutoprint ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted