Nothing
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)) }
cat(paste(out, collapse = '\n'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.