Mercurial > repos > bebatut > plot_barplot
comparison plot_barplot.R @ 2:f8cec112f5f9 draft
planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
author | bebatut |
---|---|
date | Tue, 12 Apr 2016 03:09:36 -0400 |
parents | de039abf9641 |
children | 2a9b68111074 |
comparison
equal
deleted
inserted
replaced
1:7c1274bf54c6 | 2:f8cec112f5f9 |
---|---|
10 'xlab', 'x', 2, 'character', | 10 'xlab', 'x', 2, 'character', |
11 'col', 'c', 2, 'character', | 11 'col', 'c', 2, 'character', |
12 'bottom_margin', 'b', 2, 'integer', | 12 'bottom_margin', 'b', 2, 'integer', |
13 'left_margin', 'l', 2, 'integer', | 13 'left_margin', 'l', 2, 'integer', |
14 'top_margin', 't', 2, 'integer', | 14 'top_margin', 't', 2, 'integer', |
15 'right_margin', 'r', 2, 'integer' | 15 'right_margin', 'r', 2, 'integer', |
16 'header','y',2,'logical' | |
16 ), byrow=TRUE, ncol=4); | 17 ), byrow=TRUE, ncol=4); |
17 | 18 |
18 options = getopt(option_specification); | 19 options = getopt(option_specification); |
19 | 20 |
20 data = read.table(options$input_file, sep = '\t', h = T) | 21 header = TRUE |
22 if(!is.null(options$header)) header = options$header | |
23 | |
24 data = read.table(options$input_file, sep = '\t', h = header) | |
21 | 25 |
22 data_column = 2 | 26 data_column = 2 |
23 if(!is.null(options$data_column)) data_column = options$data_column | 27 if(!is.null(options$data_column)) data_column = options$data_column |
24 names_column = 1 | 28 names_column = 1 |
25 if(!is.null(options$names_column)) names_column = options$names_column | 29 if(!is.null(options$names_column)) names_column = options$names_column |