render.R

In wfjsg/WinPerfCounter.r: Read Windows Performance Counter CSV

Sys.setenv(RSTUDIO_PANDOC="C:/Program Files/RStudio/bin/pandoc")
initial.options <- commandArgs(trailingOnly = FALSE)
file.arg.name <- "--file="
script.name <- sub(file.arg.name, "", initial.options[grep(file.arg.name, initial.options)])
script.basename <- dirname(script.name)
mdpath <- paste(script.basename, '/../', "inst/rmarkdown/templates/simple/skeleton/skeleton.Rmd", sep = "")

myarg <- commandArgs(trailingOnly = TRUE)
csvfile <- normalizePath(myarg[1])

rmarkdown::render(mdpath,
    encoding = "UTF-8",
    output_dir = getwd(),
    output_file = "report.html",
    params = list(csvfile = csvfile)
    )