view R_test.R @ 0:8a7ee199a315 draft

Uploaded
author stef
date Tue, 28 Oct 2014 06:25:06 -0400
parents
children 51e37d436e76
line wrap: on
line source

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

cat( "Starting R_test\n" )	
cat( rVersion, "\n" )
cat( systemUser, "\n" )

#qdnaseqVersion <- packageDescription( "QDNAseq" )$Version

packs <- c()
for ( pack in packs ){
	catMsg( c("Loading ", pack) )
	library( pack )
}

q(status=0)