# HG changeset patch # User rnateam # Date 1543233303 18000 # Node ID a6d072a8215864cd6a380c2567902436b2229c90 # Parent 195cba35110ea035f1a9285b118bdf1524f11afa planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/chipseeker commit 6f594126ac7369cc80c30a02a6df57e785dfb45a diff -r 195cba35110e -r a6d072a82158 chipseeker.R --- a/chipseeker.R Fri Jun 01 02:14:08 2018 -0400 +++ b/chipseeker.R Mon Nov 26 06:55:03 2018 -0500 @@ -53,17 +53,18 @@ # Convert from 1-based to 0-based format if (format == "interval") { metacols <- apply(as.data.frame(metacols), 1, function(col) paste(col, collapse="|")) - resout <- data.frame(Chrom=res$seqnames, - Start=res$start - 1, - End=res$end, - Comment=metacols) + resout <- data.frame(res$seqnames, + res$start - 1, + res$end, + metacols) + colnames(resout)[1:4] <- c("Chrom", "Start", "End", "Comment") } else { - resout <- data.frame(Chrom=res$seqnames, - Start=res$start - 1, - End=res$end, + resout <- data.frame(res$seqnames, + res$start - 1, + res$end, metacols) + colnames(resout)[1:3] <- c("Chrom", "Start", "End") } - write.table(resout, file="out.tab", sep="\t", row.names=FALSE, quote=FALSE) if (!is.null(args$plots)) { diff -r 195cba35110e -r a6d072a82158 chipseeker.xml --- a/chipseeker.xml Fri Jun 01 02:14:08 2018 -0400 +++ b/chipseeker.xml Mon Nov 26 06:55:03 2018 -0500 @@ -1,7 +1,7 @@ - + for ChIP peak annotation and visualization - bioconductor-chipseeker + bioconductor-chipseeker r-optparse