report <- teal_report()
teal_card(report) <- c(
teal_card(report),
"## Document section",
"Lorem ipsum dolor sit amet"
)
report <- within(report, a <- 2)
report <- within(report, plot(a))
metadata(teal_card(report)) <- list(
title = "My Document",
author = "NEST"
)
if (interactive()) {
render(report, output_format = rmarkdown::pdf_document(), global_knitr = list(fig.width = 10))
}
Run the code above in your browser using DataLab