# HG changeset patch
# User iuc
# Date 1504776447 14400
# Node ID a330ddf4386195c2093e20cff7c76e382aecc0bb
# Parent  76d01fe0ec36bbf9e7bba01a7a89811e2b972a69
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 346319bd01bfd51f02d656e653a93f0bd1e954aa

diff -r 76d01fe0ec36 -r a330ddf43861 limma_voom.R
--- a/limma_voom.R	Wed Jul 05 04:39:42 2017 -0400
+++ b/limma_voom.R	Thu Sep 07 05:27:27 2017 -0400
@@ -156,7 +156,7 @@
 # Process factors
 if (as.character(argv[16])=="None") {
     factorData <- read.table(factPath, header=TRUE, sep="\t")
-    factors <- factorData[,-1]
+    factors <- factorData[,-1, drop=FALSE]
 }  else { 
     factorData <- list()
     for (i in 16:length(argv)) {
@@ -570,10 +570,13 @@
 TableHeadItem("SampleID")
 TableHeadItem(names(factors)[1]," (Primary Factor)")
 
-for (i in names(factors)[2:length(names(factors))]) {
-  TableHeadItem(i)
-}
-cata("</tr>\n")
+  if (ncol(factors) > 1) {
+
+    for (i in names(factors)[2:length(names(factors))]) {
+      TableHeadItem(i)
+    }
+    cata("</tr>\n")
+  }
 
 for (i in 1:nrow(factors)) {
   cata("<tr>\n")
diff -r 76d01fe0ec36 -r a330ddf43861 limma_voom.xml
--- a/limma_voom.xml	Wed Jul 05 04:39:42 2017 -0400
+++ b/limma_voom.xml	Thu Sep 07 05:27:27 2017 -0400
@@ -66,7 +66,7 @@
 mkdir ./output_dir
 
 &&
-mv '$outReport.files_path'/*.tsv output_dir/
+cp '$outReport.files_path'/*.tsv output_dir/
     ]]></command>
 
     <inputs>