Mercurial > repos > iuc > dexseq

diff dexseq.R @ 5:28a2181df3b9 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/dexseq commit 876fc32b23d3b9c378ddbfbbba27d37d22576c85
author iuc
date Thu, 08 Oct 2015 16:49:40 -0400
parents 276833129f97
children 0ccbed58b270
line wrap: on
line diff
--- a/dexseq.R	Sun Sep 27 14:06:28 2015 -0400
+++ b/dexseq.R	Thu Oct 08 16:49:40 2015 -0400
@@ -100,7 +100,12 @@
 resSorted <- res[order(res$padj),]
 head(resSorted)
 
-write.table(as.data.frame(resSorted), file = opt$outfile, sep="\t", quote = FALSE, col.names = FALSE)
+export_table <- as.data.frame(resSorted)
+last_column <- ncol(export_table)
+for(i in 1:nrow(export_table)) {
+  export_table[i,last_column] <- paste(export_table[i,last_column][[1]],collapse=", ")
+}
+write.table(export_table, file = opt$outfile, sep="\t", quote = FALSE, col.names = FALSE)
 print("Written Results")
 
 if ( !is.null(opt$reportdir) ) {