Mercurial > repos > iuc > dexseq
diff dexseq.R @ 11:9a7c5b6d8f1e draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/dexseq commit 0ccfadf8ac4bc6514836c4efe6f605973a08d1ed
| author | iuc |
|---|---|
| date | Tue, 02 Apr 2024 12:59:54 +0000 |
| parents | df929f257179 |
| children |
line wrap: on
line diff
--- a/dexseq.R Tue Apr 04 08:25:51 2023 +0000 +++ b/dexseq.R Tue Apr 02 12:59:54 2024 +0000 @@ -16,8 +16,8 @@ options(stringAsfactors = FALSE, useFancyQuotes = FALSE) args <- commandArgs(trailingOnly = TRUE) -#get options, using the spec as defined by the enclosed list. -#we read the options from the default: commandArgs(TRUE). +# get options, using the spec as defined by the enclosed list. +# we read the options from the default: commandArgs(TRUE). spec <- matrix(c( "verbose", "v", 2, "integer", "help", "h", 0, "logical", @@ -109,7 +109,7 @@ export_table <- as.data.frame(res_sorted) last_column <- ncol(export_table) for (i in seq_len(nrow(export_table))) { - export_table[i, last_column] <- paste(export_table[i, last_column][[1]], collapse = ", ") + export_table[i, last_column] <- paste(export_table[i, last_column][[1]], collapse = ", ") } export_table[, c(last_column)] <- sapply(export_table[, c(last_column)], as.character) write.table(export_table, file = opt$outfile, sep = "\t", quote = FALSE, row.names = FALSE, col.names = FALSE)