diff AffyQCnormalization.R @ 8:e4e6e583b8d9 draft default tip

planemo upload for repository https://github.com/sblanck/smagexp/tree/master/smagexp_tools commit ad301f84e16455ca3886e9b56e908180dfd66d4f
author sblanck
date Thu, 26 Jul 2018 08:17:53 -0400
parents 1024245abc70
children
line wrap: on
line diff
--- a/AffyQCnormalization.R	Tue Jun 26 10:40:36 2018 -0400
+++ b/AffyQCnormalization.R	Thu Jul 26 08:17:53 2018 -0400
@@ -39,6 +39,12 @@
 
 listInput <- trimws( unlist( strsplit(trimws(opt$input), ",") ) )
 
+listInput <- trimws( unlist( strsplit(trimws(opt$input), ",") ) )
+if(length(listInput)<2){
+	stop("To few .CEL files selected : At least 2 .CEL files are required", call.=FALSE)
+}
+
+
 celList=vector()
 celFileNameList=vector()