waf

FORK: waf with some random patches
git clone https://git.neptards.moe/neptards/waf.git
Log | Files | Refs | README

test.R (514B)

      1 #!/usr/bin/env Rscript
      2 
      3 require(R.utils)
      4 require(tools)
      5 
      6 cmdArgs <- commandArgs(asValues = TRUE, excludeReserved = FALSE, excludeEnvVars = TRUE, os = "current")
      7 
      8 if(!is.null(cmdArgs[["numTrees"]])) nTrees <- (as.integer(cmdArgs[["numTrees"]])) else nTrees <- 500
      9 
     10 ffff <- cmdArgs[["ffff"]]
     11 print(paste("nTrees =", nTrees, sep = " "))
     12 
     13 Sweave(ffff)
     14 texi2dvi("testSweave.tex", pdf = TRUE)
     15 
     16 Stangle(ffff)
     17 source("testSweave.R")
     18 
     19 print(paste("Current Date/Time: ", date(), sep=""))
     20 
     21 (sessionInfoObj <- sessionInfo())
     22