Mercurial > repos > stef > qdnaseq
diff QDNAseq.R @ 25:8509c112abaa draft
Uploaded
| author | stef |
|---|---|
| date | Wed, 18 Jun 2014 05:05:19 -0400 |
| parents | 336697c6f7fa |
| children | 2efda0ed7ccf |
line wrap: on
line diff
--- a/QDNAseq.R Wed Jun 18 05:05:10 2014 -0400 +++ b/QDNAseq.R Wed Jun 18 05:05:19 2014 -0400 @@ -183,7 +183,10 @@ catMsg( "Loading R libraries" ) suppressWarnings( suppressMessages( library( QDNAseq, quietly = TRUE ) ) ) suppressWarnings( suppressMessages( library( CGHcall, quietly = TRUE ) ) ) -suppressWarnings( suppressMessages( library( matrixStats, quietly = TRUE ) ) ) + +qdnaseqVersion <- packageDescription( "QDNAseq" )$Version +qdnaseqDate <- packageDescription( "QDNAseq" )$Date +catMsg( "QDNAseq info: version(", qdnaseqVersion, ") and date (", qdnaseqDate, ")" ) ## only one param: the tmp config file cmdLineArgs <- commandArgs(TRUE) @@ -454,7 +457,7 @@ } cat( '</dl></p>', "\n" ) - cat( r_code, "</p>\n", sep="\n") + #cat( r_code, "</p>\n", sep="\n") cat( '<p>See ', htmlLink( WEB_LINK, 'the bioconductor QDNAseq documentation' ), ' for more information on how to work with these files</p>', "\n", sep='' ) ## ------------------------ @@ -545,4 +548,4 @@ zip_cmd <- paste( "zip -j ", gzipOutputPath, paste(outputPath,'/', htmlOutputName, sep='') ) ## -j is for removing dirs from the tree system( zip_cmd ) cat( MAIN_NAME, "done...\n", sep="") -q(status=0) \ No newline at end of file +q(status=0)