-
Notifications
You must be signed in to change notification settings - Fork 0
/
.R
22 lines (14 loc) · 935 Bytes
/
.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/SYSTEM/R/3.3.2/bin/Rscript
# Library -----------------------------------------------------------------
if (sessionInfo()$platform == "x86_64-pc-linux-gnu (64-bit)") .libPaths("./packrat/lib/x86_64-pc-linux-gnu/3.3.2/")
mylib <- c("ncar", "dplyr", "rmarkdown", "knitr", "markdown")
lapply(mylib, library, character.only = TRUE) # if needed # install.packages(mylib, lib = localLibPath)
# Argument ----------------------------------------------------------------
Args <- commandArgs(trailingOnly = TRUE) # SKIP THIS LINE IN R if you're testing!
if (identical(Args, character(0))) Args <- c("-inp", "input.deck")
file_doc2 <- "oral01"
knitr::knit(paste0(file_doc2, ".Rmd"), paste0(file_doc2, ".md"))
markdown::markdownToHTML(paste0(file_doc2, ".md"),
"result/README.html",
options = c("toc", "mathjax")) #, stylesheet = "mycss.css")
#browseURL("result/Report_Appendix.html")