library(tidyverse)
library(knitr)
knitr::opts_chunk$set(echo = FALSE, fig.align = "center")
pagebreak <- function() {
  if(knitr::is_latex_output())
    return("\\newpage")
  else
    return('<div style="page-break-before: always;" />')
}

\newpage

Methods

Some info.

out <- NULL
for (name in colnames(params$df))
{
  env=new.env()
  out <- c(out, knitr::knit_child('child.Rmd', envir=env))
  pagebreak()
}

r paste(out, collapse='\n')

params$df %>%
  knitr::kable(caption = "The famous iris data set")


SMLMS/pguIMP documentation built on Oct. 1, 2021, 12:01 a.m.