Generate flextable for preview first page

Usage

slides_preview(x)

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()