 "
In eCerto: Statistical Tests for the Production of Reference Materials

knitr::opts_chunk$set(echo = FALSE)
#knitr::opts_chunk$set(out.width = '100%', dpi=300)
word_tabs_as_fig <- !knitr::is_html_output() && requireNamespace("webshot2", quietly = TRUE)
if (word_tabs_as_fig) library(webshot2)
fs_tab <- "175%"
D <- params$D

  knitr::include_graphics(params$logo_file)

eCerto Report

Date: r format(Sys.time(), '%d %B, %Y')

Modul: DRMD

This could be in PDF, HTML or Word format (all with different advantages and disadvantages).

It could be a report or even a certificate (all based on the data in the XML, given that a specified format can be provided).

Below are the administrative data of the currently loaded XML file just for a proof of concept.

tab_D1 <- eCerto:::styleTabD1(df = D[["tab_D1"]], selected = NULL)
if (knitr::is_html_output()) {
  tab_D1
} else {
  colnames(tab_D1$x$data) <- eCerto:::HTML2markdown(colnames(tab_D1$x$data))
  knitr::kable(tab_D1$x$data, caption = tab_D1$x$caption)
}