view R_test.R @ 4:75ff0f2ef92a draft default tip

Uploaded

systemUser <- system("whoami",T)
rVersion <- R.version.string

cat( "-----\n starting\n-----\n")
cat( rVersion, "\n" )
cat( systemUser, "\n" )

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)