Mercurial > repos > iuc > edger

diff edger.R @ 13:838b481dc6f9 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/edger commit 95a36f5b0bd139f161d131b4c2c9c36940e749c6
author iuc
date Wed, 27 Sep 2023 19:52:53 +0000
parents 07cc368bf34f
children c5fa04118f83
line wrap: on
line diff
--- a/edger.R	Thu Sep 21 10:00:53 2023 +0000
+++ b/edger.R	Wed Sep 27 19:52:53 2023 +0000
@@ -283,7 +283,7 @@
     }
     # order samples as in counts matrix
     factordata <- factordata[match(colnames(counts), factordata[, 1]), ]
-    factors <- factordata[, -1, drop = FALSE]
+    factors <- data.frame(sapply(factordata[, -1, drop = FALSE], make.names))
   } else {
     factors <- unlist(strsplit(opt$factInput, "|", fixed = TRUE))
     factordata <- list()