## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  comment = "#>",
  collapse = TRUE,
  out.width = "100%",
  dpi = 150,
  eval = TRUE
)

## -----------------------------------------------------------------------------
library(metalite)
library(metalite.sl)

## ----eval = FALSE-------------------------------------------------------------
#  meta_sl_example() |>
#    prepare_base_char(
#      population = "apat",
#      analysis = "base_char",
#      parameter = "age;gender"
#    ) |>
#    format_base_char() |>
#    rtf_base_char(
#      source = "Source: [CDISCpilot: adam-adsl]",
#      path_outdata = tempfile(fileext = ".Rdata"),
#      path_outtable = tempfile(fileext = ".rtf")
#    )

## ----out.width = "100%", out.height = "400px", echo = FALSE, fig.align = "center"----
knitr::include_graphics("pdf/base0char.pdf")

## -----------------------------------------------------------------------------
react_base_char(
  metadata_sl = meta_sl_example(),
  metadata_ae = metalite.ae::meta_ae_example(),
  population = "apat",
  observation = "wk12",
  display_total = TRUE,
  sl_parameter = "age;race",
  ae_subgroup = c("age", "race"),
  ae_specific = "rel",
  width = 1200
)