# HG changeset patch # User mvdbeek # Date 1456400684 18000 # Node ID 02e88556ce1d6c9af033e6fdfc505867026832b8 # Parent 1802ccf465b8b3d75d18699e3c689c0994f636a1 planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/goseq_1_22_0 commit fdd0811efc61c31f88ff17096fbe8ee8cfacd766-dirty diff -r 1802ccf465b8 -r 02e88556ce1d get_length_and_gc_content.r --- a/get_length_and_gc_content.r Thu Feb 25 06:20:59 2016 -0500 +++ b/get_length_and_gc_content.r Thu Feb 25 06:44:44 2016 -0500 @@ -5,6 +5,7 @@ library(rtracklayer) library(Rsamtools) library(optparse) +library(data.table) option_list <- list( make_option(c("-g","--gtf"), type="character", help="Input GTF file with gene / exon information."), @@ -40,6 +41,7 @@ c(width, nGCs/width) } output <- t(sapply(split(reducedGTF, elementMetadata(reducedGTF)$gene_id), calc_GC_length)) -colnames(output) <- c("Length", "GC") +output <- setDT(output, keep.rownames = TRUE)[] +colnames(output) <- c("#gene_id", "length", "GC") -write.table(output, file=output_file, sep="\t") \ No newline at end of file +write.table(output, file=output_file, row.names=FALSE, quote=FALSE, sep="\t") \ No newline at end of file diff -r 1802ccf465b8 -r 02e88556ce1d tool_dependencies.xml --- a/tool_dependencies.xml Thu Feb 25 06:20:59 2016 -0500 +++ b/tool_dependencies.xml Thu Feb 25 06:44:44 2016 -0500 @@ -4,6 +4,6 @@ - +