Generate flextable for preview first page

slides_preview(x)

Arguments

x

rtables or data.frame

Value

A flextable or a ggplot object depending to the input.

Examples

# Example 1. preview table
library(dplyr)
adsl <- eg_adsl
t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>% slides_preview()