Template for R make file

make.R

setwd("H:/Projects")  # Set project directory

Sys.time0 <- Sys.time()

sink("make.log")

files <- c("file1.Rmd",  # File 1
           "file2.Rmd",  # File 2
           "file3.Rmd")  # File 3

f <- file("master.Rmd", open = "w")
for (i in 1:length(files)) {
    x <- readLines(files[i])
    writeLines(x, f)
    if (i < length(files)) {writeLines("\n---\n", f)}
}
close(f)

library(knitr)
library(rmarkdown)
knit("master.Rmd", output = "index.md")
file.remove("master.Rmd")

sink("session.log")
list(completionDateTime = Sys.time(),
     executionTime = Sys.time() - Sys.time0,
     sessionInfo = sessionInfo())
sink()

sink()