R/to_slides.R
slides_preview.Rd
Generate flextable for preview first page
slides_preview(x)
rtables or data.frame
A flextable or a ggplot object depending to the input.
# Example 1. preview table library(dplyr) adsl <- eg_adsl t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>% slides_preview()