## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(chevron)
data(syn_data, package = "chevron")

## -----------------------------------------------------------------------------
run(aet02, syn_data)

## -----------------------------------------------------------------------------
main(aet02)

## -----------------------------------------------------------------------------
res <- preprocess(aet02)(syn_data)

# or
foo <- aet02@preprocess
res <- foo(syn_data)

str(res, max.level = 0)

## ----eval = FALSE-------------------------------------------------------------
#  library(rtables)
#  library(tern)
#  my_template <- chevron_t(
#    main = "<your main function to build the table>",
#    preprocess = "<your pre function to process the data>",
#    postprocess = "<your post function to add custom sorting>"
#  )
#  
#  run(my_template, syn_data)