# HG changeset patch
# User moheydarian
# Date 1487821041 18000
# Node ID 996c274d942dd7a05e4123ec0e1767fda93ac697
# Parent  d10e0dfe8a232195c31962dd9999070a2276739f
Uploaded

diff -r d10e0dfe8a23 -r 996c274d942d ggplot_violin.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ggplot_violin.xml	Wed Feb 22 22:37:21 2017 -0500
@@ -0,0 +1,112 @@
+<tool id="2" name="Violin plot w ggplot2" version="0.1.2">
+    <requirements>
+        <requirement type="package">r-getopt</requirement>
+        <requirement type="package">r-ggplot2</requirement>
+        <requirement type="package">r-reshape2</requirement>
+    </requirements>
+    <stdio>
+        <exit_code range="1:" />
+    </stdio>
+    <command><![CDATA[
+        Rscript ${__tool_directory__}/ggplotscriptviolin.R --input "$input1" --title "$title" --xlab "$xlab" --ylab "$ylab" --drawquartiles "$quartiles.drawquartiles" --ggfill "$fill.ggfill" --ggcolor "$color.ggcolor" --transform "$transformation.transform" --scaling "$scaling.Plot_scaling" --output "Rplot.pdf"
+       
+
+        #if str( $scaling.Plot_scaling ) == "Defined":
+            --yaxismin=${scaling.yaxismin}
+            --yaxismax=${scaling.yaxismax}
+        #else:
+           --yaxismin=2
+           --yaxismax=3
+        #end if
+
+
+    ]]></command>
+    <inputs>
+        <param name="input1" type="data" format="tabular" label="Input should have column headers - these will be the columns that are plotted"/>
+        <param name="title" size="30" type="text"  format="txt" />
+        <param name="xlab" size="30" type="text" value="title of x-axis" label="Label for x axis"/>
+        <param name="ylab" size="30" type="text" value="title of y-axis" label="Label for y axis"/>   
+        <conditional name="scaling">
+            <param name="Plot_scaling" type="select" label="Advanced - Axis scaling">
+                <option value="Automatic" selected="True">Automatic axis scaling</option>
+                <option value="Defined">User deined axis scales</option>
+            </param>
+            <when value="Automatic">
+            </when>
+            <when value="Defined">
+                <param name="yaxismin" size="4" type="integer" value="0" label="minimal range of y-axis" />
+                <param name="yaxismax" size="4" type="integer" value="3" label="maximal range of y-axis" />
+            </when>
+        </conditional>
+        <conditional name="transformation">
+            <param name="transform" type="select" label="Advanced - log transformation">
+              <option value="none">Plot the data as it is</option>
+              <option value="log2">Log2(value) transform my data</option>
+              <option value="log2plus1">Log2(value+1) transform my data</option>
+              <option value="log10">Log10(value) transform my data</option>
+              <option value="log10plus1">Log10(value+1) transform my data</option>
+            </param>
+        </conditional>
+        <conditional name="quartiles">
+            <param name="drawquartiles" type="select" label="Advanced - indicate quartiles of your data">
+              <option value="none">Plot the data without indicating quartiles</option>
+              <option value="indicate">Draw lines to indicate each quartile</option>
+            </param>
+        </conditional>
+        <conditional name="fill">
+                <param name="ggfill" type="select" label="Advanced - violin color options">
+                  <option value="blue" selected="True">Default (Blue)</option>
+                  <option value="black">Black</option>
+                  <option value="red">Red</option>
+                  <option value="white">White</option>
+                  <option value="orange">Orange</option>
+                  <option value="yellow">Yellow</option>
+                  <option value="green">Green</option>
+                  <option value="purple">Purple</option>
+                  <option value="magenta">Magenta</option>
+                  <option value="cyan">Cyan</option>
+                  <option value="grey">Grey</option>
+                  <option value="gold">Gold</option>
+                </param>
+        </conditional>
+         <conditional name="color">
+                <param name="ggcolor" type="select" label="Advanced - violin border options">
+                  <option value="yellow" selected="True">Default (Yellow)</option>
+                  <option value="black">Black</option>
+                  <option value="red">Red</option>
+                  <option value="white">White</option>
+                  <option value="blue">Blue</option>
+                  <option value="orange">Orange</option>
+                  <option value="green">Green</option>
+                  <option value="purple">Purple</option>
+                  <option value="magenta">Magenta</option>
+                  <option value="cyan">Cyan</option>
+                  <option value="grey">Grey</option>
+                  <option value="gold">Gold</option>
+                </param>
+        </conditional>
+    </inputs>
+    <outputs>
+        <!-- <data name="output1" format="png" from_work_dir="Rplot.png"/> -->
+        <data name="output1" format="pdf" from_work_dir="Rplot.pdf"/>
+    </outputs>
+    <tests>
+        <test>
+            <param name="input1" value="input.txt"/>
+            <output name="output1" file="Rplot.pdf"/>
+        </test>
+    </tests>
+    <help><![CDATA[
+        Supply this tool with a text file with headers indicating the various groups to be plotted. This tool will sniff out each column with values that can be plotted and display the distribution of that data group. Note that columns may be excluded from this plot if they contain questionable characters. 
+
+    ]]></help>
+    <citations>
+        <citation type="bibtex">
+@misc{renameTODO,
+  author = {LastTODO, FirstTODO},
+  year = {TODO},
+  title = {TODO},
+  url = {under construction},
+}</citation>
+    </citations>
+</tool>