library(gtsummary)
data(trial)
#
trial |>
  tbl_summary()