Mercurial > repos > saskia-hiltemann > testrepo
comparison xy_plot.xml @ 1:1e7227087237 draft
Uploaded
author | saskia-hiltemann |
---|---|
date | Thu, 29 Oct 2015 11:17:43 -0400 |
parents | 8cdada007b82 |
children | 00edf99d4306 |
comparison
equal
deleted
inserted
replaced
0:8cdada007b82 | 1:1e7227087237 |
---|---|
1 <tool id="XY_Plot_1" name="Plotting tool" version="1.0.1"> | 1 <tool id="XY_Plot_1" name="Plotting tool" version="1.0.1"> |
2 <description>for multiple series and graph types</description> | 2 <description>for multiple series and graph types</description> |
3 <requirements> | 3 <requirements> |
4 <requirement type="package" version="2.11.0">R</requirement> | 4 <requirement type="package" version="3.2.1">R</requirement> |
5 <requirement type="package" version="1.14.2">cairo</requirement> | 5 </requirements> |
6 </requirements> | |
7 <command interpreter="bash">r_wrapper.sh $script_file</command> | 6 <command interpreter="bash">r_wrapper.sh $script_file</command> |
8 | 7 |
9 <inputs> | 8 <inputs> |
10 <param name="main" type="text" value="" label="Plot Title"/> | 9 <param name="main" type="text" value="" label="Plot Title"/> |
11 <param name="xlab" type="text" value="" label="Label for x axis"/> | 10 <param name="xlab" type="text" value="" label="Label for x axis"/> |
77 y${i} = s${i}[,${s.ycol}] | 76 y${i} = s${i}[,${s.ycol}] |
78 xrange = range( x${i}, xrange ) | 77 xrange = range( x${i}, xrange ) |
79 yrange = range( y${i}, yrange ) | 78 yrange = range( y${i}, yrange ) |
80 #end for | 79 #end for |
81 ## Open output PDF file | 80 ## Open output PDF file |
82 png( "${out_file1}" ) | 81 pngcairo( "${out_file1}" ) |
83 ## Dummy plot for axis / labels | 82 ## Dummy plot for axis / labels |
84 plot( NULL, type="n", xlim=xrange, ylim=yrange, main="${main}", xlab="${xlab}", ylab="${ylab}" ) | 83 plot( NULL, type="n", xlim=xrange, ylim=yrange, main="${main}", xlab="${xlab}", ylab="${ylab}" ) |
85 ## Plot each series | 84 ## Plot each series |
86 #for $i, $s in enumerate( $series ) | 85 #for $i, $s in enumerate( $series ) |
87 #if $s.series_type['type'] == "line" | 86 #if $s.series_type['type'] == "line" |