In Blue-Matter/MSEtool: Management Strategy Evaluation Toolkit

knitr::opts_chunk$set(echo = TRUE)

library(knitr); library(dplyr)

library(knitr)
rmd.files <- c("../Stock/Stock.Rmd",
               "../Fleet/Fleet.Rmd",
               "../Obs/Obs.Rmd",
               "../Imp/Imp.Rmd",
               "../Hist/Hist.Rmd")

out <- NULL
i <- 0

for (rmd in rmd.files) {
  i <- i + 1
  if (require('shiny', quietly=TRUE)) {
    if (shiny::isRunning())
      shiny::setProgress(i/length(rmd.files))
  }  
  out <- c(out, knitr::knit_child(rmd))
}