diff ggplot_point.xml @ 10:299307abd804 draft

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/ggplot2 commit 847c77a54204433d210cd8a1234474d014628424
author iuc
date Thu, 24 Nov 2022 20:23:57 +0000
parents 1acf88921176
children d0fc8b746d57
line wrap: on
line diff
--- a/ggplot_point.xml	Tue Nov 23 07:58:14 2021 +0000
+++ b/ggplot_point.xml	Thu Nov 24 20:23:57 2022 +0000
@@ -38,8 +38,8 @@
         gg_point = geom_point(size=1, alpha=1, gg_factor)
         gg_line = geom_line(size=1, alpha=1, gg_factor)
      #else
-        gg_point = geom_point(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor')
-        gg_line = geom_line(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor')
+        gg_point = geom_point(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor', shape=as.numeric('$adv.type_conditional.points.shape'))
+        gg_line = geom_line(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor', shape=as.numeric('$adv.type_conditional.points.shape'))
      #end if
 
     names(input)[$adv.factor.factorcol] <- "factor"
@@ -72,8 +72,8 @@
         gg_point = geom_point(size=1, alpha=1, gg_factor)
         gg_line = geom_line(size=1, alpha=1, gg_factor)
     #else
-        gg_point = geom_point(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor')
-        gg_line = geom_line(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor')
+        gg_point = geom_point(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor', shape=as.numeric('$adv.type_conditional.points.shape'))
+        gg_line = geom_line(size=$adv.type_conditional.points.size, alpha=$adv.type_conditional.points.alpha, colour='$adv.type_conditional.points.pointcolor', shape=as.numeric('$adv.type_conditional.points.shape'))
     #end if
 #end if
 
@@ -220,6 +220,28 @@
             <param name="additional_output_format" value="pdf" />
             <output name="output2" file="ggplot_point_result2.pdf" compare="sim_size" />
         </test>
+         <!-- Test defined point options options-->
+        <test>
+            <param name="input1" value="mtcars.txt" ftype="tabular" />
+            <section name="adv">
+                <conditional name="type_conditional">
+                    <param name="type_options" value="points"/>
+                    <conditional name="points">
+                        <param name="pointoptions" value="defined"/>
+                        <param name="size" value="2"/>
+                        <param name="alpha" value="0.5"/>
+                        <param name="pointcolor" value="gold"/>
+                        <param name="shape" value="6"/>
+                    </conditional>
+                </conditional>
+                <conditional name="axis_text_customization">
+                    <param name="axis_customization" value="defined"/>
+                    <param name="color" value="red"/>
+                </conditional>
+            </section>
+            <param name="additional_output_format" value="pdf" />
+            <output name="output2" file="ggplot_point_result3.pdf" compare="sim_size" />
+        </test>
     </tests>
     <help><![CDATA[
 This tool will generate a scatterplot representing data from two groups/conditions.