make.R

# REMEMBER TO CHANGE IN shared-init in all

library(knitr)
library(rmarkdown)

# Put the files in this dir (ignored in the git)
dirnam <- "../tmp/vignettes/"
dir.create("../tmp")
dir.create(dirnam)
unlink("cache", recursive=TRUE)

makeit <- function(nam, openit=FALSE, clean=TRUE){
    namrmd <- paste0(nam,".Rmd")
    render(namrmd, output_file=paste0(dirnam,nam), clean=clean)
    purl(namrmd)
    system(paste0("mv ",nam,".R ",dirnam,nam,".R"))
    if(openit){ system(paste0("chromium-browser ",dirnam,nam,".html &")) }
}

#
unlink(paste0(dirnam,"tmp-setup-data/"), recursive=TRUE)
makeit("setup-data", openit=FALSE)

#
unlink(paste0(dirnam,"tmp-setup-and-use-model/"), recursive=TRUE)
makeit("setup-and-use-model", openit=FALSE, clean=TRUE)

#
unlink(paste0(dirnam,"tmp-output/tmp-forecast-evaluation/"), recursive=TRUE)
makeit("forecast-evaluation", openit=FALSE)

# Finish and include it!!
## unlink(paste0(dirnam,"tmp-output/tmp-online-updating/"), recursive=TRUE)
## makeit("online-updating", openit=FALSE)