Mercurial > repos > iuc > edger

diff edger.R @ 13:0cb907a2a810 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:53:04 +0000
parents a8305cf0c951
children 070900306913
line wrap: on
line diff
--- a/edger.R	Thu Sep 21 10:01:55 2023 +0000
+++ b/edger.R	Wed Sep 27 19:53:04 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()