# HG changeset patch
# User iuc
# Date 1549418250 18000
# Node ID fb9b9f0f2f06443cc51917acb5c8e7feb532d4e6
# Parent  4730985c816ff0707cce117d437035351dd746bd
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 91bdcc6a5a46173be6546d590cdf3f311c2b1476

diff -r 4730985c816f -r fb9b9f0f2f06 edger.R
--- a/edger.R	Sat Jan 05 05:32:33 2019 -0500
+++ b/edger.R	Tue Feb 05 20:57:30 2019 -0500
@@ -261,7 +261,7 @@
     
 } else {
     # Process the single count matrix
-    counts <- read.table(opt$matrixPath, header=TRUE, sep="\t", stringsAsFactors=FALSE)
+    counts <- read.table(opt$matrixPath, header=TRUE, sep="\t", strip.white=TRUE, stringsAsFactors=FALSE)
     row.names(counts) <- counts[, 1]
     counts <- counts[ , -1]
     countsRows <- nrow(counts)
@@ -269,6 +269,9 @@
     # Process factors
     if (is.null(opt$factInput)) {
             factorData <- read.table(opt$factFile, header=TRUE, sep="\t", strip.white=TRUE)
+            # check samples names match
+            if(!any(factorData[, 1] %in% colnames(counts)))
+                stop("Sample IDs in factors file and count matrix don't match")
             # order samples as in counts matrix
             factorData <- factorData[match(colnames(counts), factorData[, 1]), ]
             factors <- factorData[, -1, drop=FALSE]
@@ -293,7 +296,7 @@
 
  # if annotation file provided
 if (haveAnno) {
-    geneanno <- read.table(opt$annoPath, header=TRUE, sep="\t", stringsAsFactors=FALSE)
+    geneanno <- read.table(opt$annoPath, header=TRUE, sep="\t", quote= "", strip.white=TRUE, stringsAsFactors=FALSE)
 }
 
 #Create output directory
diff -r 4730985c816f -r fb9b9f0f2f06 edger.xml
--- a/edger.xml	Sat Jan 05 05:32:33 2019 -0500
+++ b/edger.xml	Tue Feb 05 20:57:30 2019 -0500
@@ -1,11 +1,11 @@
-<tool id="edger" name="edgeR" version="3.22.5">
+<tool id="edger" name="edgeR" version="3.24.1">
     <description>
         Perform differential expression of count data
     </description>
 
     <requirements>
-        <requirement type="package" version="3.22.5">bioconductor-edger</requirement>
-        <requirement type="package" version="3.36.5">bioconductor-limma</requirement>
+        <requirement type="package" version="3.24.1">bioconductor-edger</requirement>
+        <requirement type="package" version="3.38.3">bioconductor-limma</requirement>
         <requirement type="package" version="0.2.20">r-rjson</requirement>
         <requirement type="package" version="1.20.2">r-getopt</requirement>
         <requirement type="package" version="1.4.30">r-statmod</requirement>
@@ -424,7 +424,7 @@
                 <element name="edgeR_normcounts" ftype="tabular" >
                     <assert_contents>
                         <has_text_matching expression="GeneID.*Mut1.*Mut2.*Mut3.*WT1.*WT2.*WT3" />
-                        <has_text_matching expression="11304.*15.7535" />
+                        <has_text_matching expression="11304.*15.75" />
                    </assert_contents>
                </element>
             </output_collection>
@@ -503,7 +503,7 @@
                 <element name="edgeR_normcounts" ftype="tabular" >
                     <assert_contents>
                         <has_text_matching expression="Mut1.*Mut2.*Mut3.*WT1.*WT2.*WT3" />
-                        <has_text_matching expression="11304.*Abca4.*15.7535" />
+                        <has_text_matching expression="11304.*Abca4.*15.75" />
                    </assert_contents>
                </element>
             </output_collection>