[rkward-cvs] SF.net SVN: rkward:[2691] trunk/rkward/tests/plots

[tfry at users.sourceforge.net]

Revision: 2691
          http://rkward.svn.sourceforge.net/rkward/?rev=2691&view=rev
Author:   tfry
Date:     2009-10-06 13:17:42 +0000 (Tue, 06 Oct 2009)

Log Message:
-----------
Minor fix

Modified Paths:
--------------
    trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
    trunk/rkward/tests/plots/RKTestStandard.barplot.rkout

Modified: trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R	2009-10-06 11:48:00 UTC (rev 2690)
+++ trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R	2009-10-06 13:17:42 UTC (rev 2691)
@@ -26,11 +26,11 @@
 ## Prepare
 ## Compute
 ## Print result
-x <- x
+x <- test_table
 # barplot is a bit picky about attributes, so we need to convert to vector explicitely
 if(!is.matrix(x)) x <- as.vector(x)
 if(!is.matrix(x) && is.data.frame(x)) x <- data.matrix(x)
-rk.header ("Barplot", parameters=list ("Variable", rk.get.description (x), "Tabulate", "No", "colors", "default", "Type", "stacked", "Legend", "TRUE"))
+rk.header ("Barplot", parameters=list ("Variable", rk.get.description (test_table), "Tabulate", "No", "colors", "default", "Type", "stacked", "Legend", "TRUE"))
 
 rk.graph.on ()
 try ({
@@ -38,5 +38,5 @@
 })
 rk.graph.off ()
 })
-.rk.rerun.plugin.link(plugin="rkward::barplot", settings="barplot_embed.colors.string=default\nbarplot_embed.legend.state=1\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=stacked\nnames_exp.text=names (x)\nnames_mode.string=default\ntabulate.state=0\nx.available=x", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::barplot", settings="barplot_embed.colors.string=default\nbarplot_embed.legend.state=1\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=stacked\nnames_exp.text=names (x)\nnames_mode.string=default\ntabulate.state=0\nx.available=test_table", label="Run again")
 .rk.make.hr()

Modified: trunk/rkward/tests/plots/RKTestStandard.barplot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.barplot.rkout	2009-10-06 11:48:00 UTC (rev 2690)
+++ trunk/rkward/tests/plots/RKTestStandard.barplot.rkout	2009-10-06 13:17:42 UTC (rev 2691)
@@ -10,7 +10,7 @@
 <img src="graph.png" width="480" height="480"><br>
 <h1>Barplot</h1>
 <h2>Parameters</h2>
-<ul><li>Variable: x</li>
+<ul><li>Variable: test_table</li>
 <li>Tabulate: No</li>
 <li>colors: default</li>
 <li>Type: stacked</li>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.