# HG changeset patch
# User stef
# Date 1403082319 14400
# Node ID 8509c112abaaef479b455aeb5074c341276dfa0a
# Parent  9f4e0192de1005e0c49d96f90ba5565157424101
Uploaded

diff -r 9f4e0192de10 -r 8509c112abaa QDNAseq.R
--- 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)