|
0
|
1 systemUser <- system("whoami",T)
|
|
|
2 rVersion <- R.version.string
|
|
|
3
|
|
1
|
4 cat( "-----\n starting\n-----\n")
|
|
0
|
5 cat( rVersion, "\n" )
|
|
|
6 cat( systemUser, "\n" )
|
|
|
7
|
|
1
|
8 cmdLineArgs <- commandArgs(TRUE)
|
|
|
9 config <- cmdLineArgs[1]
|
|
|
10 source(config) ## retrieves variables
|
|
0
|
11
|
|
1
|
12 png( pngFile )
|
|
|
13 plot( 1,1, main="PNG test" )
|
|
|
14 dev.off()
|
|
|
15 ## -----
|
|
|
16 ## check loading of packages
|
|
|
17 ## -----
|
|
0
|
18 packs <- c()
|
|
|
19 for ( pack in packs ){
|
|
|
20 catMsg( c("Loading ", pack) )
|
|
|
21 library( pack )
|
|
|
22 }
|
|
|
23
|
|
1
|
24 ## -----
|
|
|
25 ## get package versions
|
|
|
26 ## -----
|
|
|
27 #qdnaseqVersion <- packageDescription( "QDNAseq" )$Version
|
|
|
28 cat( "-----\n session info\n-----\n")
|
|
|
29 sessionInfo()
|
|
|
30
|
|
|
31
|
|
|
32 ## -----
|
|
0
|
33 q(status=0)
|
