Mercurial > repos > iuc > limma_voom

diff limma_voom.R @ 2:8a9806150b19 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 346319bd01bfd51f02d656e653a93f0bd1e954aa
author iuc
date Thu, 07 Sep 2017 05:26:46 -0400
parents 3c8b816c26e7
children 895d310ddb21
line wrap: on
line diff
--- a/limma_voom.R	Wed Jul 05 04:39:28 2017 -0400
+++ b/limma_voom.R	Thu Sep 07 05:26:46 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")