comparison QDNAseq.R @ 7:1181e22c2b5a draft

Uploaded
author stef
date Mon, 27 Oct 2014 05:24:59 -0400
parents d4d58887f008
children 238a698f7904
comparison
equal deleted inserted replaced
6:d4d58887f008 7:1181e22c2b5a
142 WEB_LINK <- 'http://www.bioconductor.org/packages/release/bioc/html/QDNAseq.html' 142 WEB_LINK <- 'http://www.bioconductor.org/packages/release/bioc/html/QDNAseq.html'
143 PURE_CSS <- 'http://yui.yahooapis.com/pure/0.5.0/pure-min.css' 143 PURE_CSS <- 'http://yui.yahooapis.com/pure/0.5.0/pure-min.css'
144 144
145 catMsg( "Starting QDNAseq wrapper" ) 145 catMsg( "Starting QDNAseq wrapper" )
146 catMsg( "Loading R libraries" ) 146 catMsg( "Loading R libraries" )
147 catMsg( R.version.string )
148
149 catMsg( "Loading Limma" )
150 library( "limma" )
151 catMsg( "Loading DNAcopy" )
152 library( "DNAcopy" )
153
154 ## supress msg to allow R to finish with non-error msg
147 suppressWarnings( suppressMessages( library( QDNAseq, quietly = TRUE ) ) ) 155 suppressWarnings( suppressMessages( library( QDNAseq, quietly = TRUE ) ) )
148 suppressWarnings( suppressMessages( library( CGHcall, quietly = TRUE ) ) ) 156 suppressWarnings( suppressMessages( library( CGHcall, quietly = TRUE ) ) )
149 157
150 ## only one param: the tmp config file 158 ## only one param: the tmp config file
151 cmdLineArgs <- commandArgs(TRUE) 159 cmdLineArgs <- commandArgs(TRUE)