In Novartis/subpat: Subpopulation and subgroups shiny modules

knitr::opts_chunk$set(echo = FALSE)
library(knitr)
library(pander)
library(kableExtra)
library(subpat)

panderOptions('knitr.auto.asis', FALSE)
panderOptions('keep.line.breaks', TRUE)

if(! is.null(population)) toPandoc(population)

for(i in seq_along(datasets)) {
  pander::pandoc.header(names(datasets)[[i]])
  pander::pander(datasets[[i]], split.table=120)
}