diff R_test.R @ 1:51e37d436e76 draft

Uploaded

--- a/R_test.R	Tue Oct 28 06:25:06 2014 -0400
+++ b/R_test.R	Tue Oct 28 06:38:53 2014 -0400
@@ -1,16 +1,33 @@
 systemUser <- system("whoami",T)
 rVersion <- R.version.string
 
-cat( "Starting R_test\n" )	
+cat( "-----\n starting\n-----\n")
 cat( rVersion, "\n" )
 cat( systemUser, "\n" )
 
-#qdnaseqVersion <- packageDescription( "QDNAseq" )$Version
+cmdLineArgs <- commandArgs(TRUE)
+config      <- cmdLineArgs[1]
+source(config) ## retrieves variables
 
+png( pngFile )
+	plot( 1,1, main="PNG test" )
+dev.off()
+## -----
+## check loading of packages
+## -----
 packs <- c()
 for ( pack in packs ){
 	catMsg( c("Loading ", pack) )
 	library( pack )
 }
 
+## -----
+## get package versions
+## -----
+#qdnaseqVersion <- packageDescription( "QDNAseq" )$Version
+cat( "-----\n session info\n-----\n")
+sessionInfo()
+
+
+## -----
 q(status=0)