Skip to content
Snippets Groups Projects
make.R 1 KiB
Newer Older
  • Learn to ignore specific revisions
  • pbac's avatar
    pbac committed
    # REMEMBER TO CHANGE IN shared-init in all
    
    pbac's avatar
    pbac committed
    library(knitr)
    library(rmarkdown)
    
    
    # Put the files in this dir (ignored in the git)
    
    pbac's avatar
    pbac committed
    dirnam <- "tmp-output/"
    dir.create(dirnam)
    
    
    pbac's avatar
    pbac committed
    makeit <- function(nam, openit=FALSE, clean=TRUE){
    
    pbac's avatar
    pbac committed
        namrmd <- paste0(nam,".Rmd")
    
    pbac's avatar
    pbac committed
        render(namrmd, output_file=paste0(dirnam,nam), clean=clean)
    
    pbac's avatar
    pbac committed
        purl(namrmd)
        system(paste0("mv ",nam,".R ",dirnam,nam,".R"))
        if(openit){ system(paste0("chromium-browser ",dirnam,nam,".html &")) }
    }
    
    file.remove(dir("tmp-output/tmp-setup-data/", full.names=TRUE))
    makeit("setup-data", openit=FALSE)
    
    #
    file.remove(dir("cache", full.names=TRUE))
    file.remove("cache")
    file.remove(dir("tmp-output/tmp-setup-and-use-model/", full.names=TRUE))
    
    makeit("setup-and-use-model", openit=FALSE, clean=TRUE)
    
    pbac's avatar
    pbac committed
    
    #
    file.remove(dir("tmp-output/tmp-forecast-evaluation/", full.names=TRUE))
    makeit("forecast-evaluation", openit=FALSE)
    
    
    # Finish and include it!!
    ## file.remove(dir("tmp-output/tmp-online-updating/", full.names=TRUE))
    ## makeit("online-updating", openit=FALSE)