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