[rkward-cvs] SF.net SVN: rkward:[4317] trunk/rkward
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Thu Sep 27 07:44:24 UTC 2012
Revision: 4317
http://rkward.svn.sourceforge.net/rkward/?rev=4317&view=rev
Author: tfry
Date: 2012-09-27 07:44:24 +0000 (Thu, 27 Sep 2012)
Log Message:
-----------
Add a basic test for several plot options
Modified Paths:
--------------
trunk/rkward/ChangeLog
trunk/rkward/tests/plots.R
Added Paths:
-----------
trunk/rkward/tests/plots/plot_options.rkcommands.R
trunk/rkward/tests/plots/plot_options.rkout
Modified: trunk/rkward/ChangeLog
===================================================================
--- trunk/rkward/ChangeLog 2012-09-26 17:15:37 UTC (rev 4316)
+++ trunk/rkward/ChangeLog 2012-09-27 07:44:24 UTC (rev 4317)
@@ -1,4 +1,4 @@
-- Most plot plugins gain options to control margins and tick label orientation TODO: add test(s)
+- Most plot plugins gain options to control margins and tick label orientation
- Added option for installing packages from source (implicitly enabled on Unixoid platforms)
- Fixed: Wrong handling of carriage returns ('\r') in the console window TODO: also fix for the command log and other places
- Fixed: Spinboxes had wrong initial values
@@ -14,7 +14,7 @@
- Do not offer to restore individual removed columns of a data.frame opened for editing
- Fixed: Plot history and graphical menus broken in some cases with R 2.15.0
- Fixed: If the rkward package was loaded in a plain R session, q() and quit() still work
-- combined all Wilcoxon/Mann-Whitney-tests in one plugin (from previously two separate plugins) TODO: adjust test(s)
+- combined all Wilcoxon/Mann-Whitney-tests in one plugin (from previously two separate plugins)
- Added polyserial/polychoric correlations to correlation matrix plugin
- Added more compression options to the "Save objects as R code" plugin
- Added MacPorts support, see README.MacPorts and bundle build script in the macports folder
Added: trunk/rkward/tests/plots/plot_options.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/plot_options.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/plot_options.rkcommands.R 2012-09-27 07:44:24 UTC (rev 4317)
@@ -0,0 +1,13 @@
+local({
+## Print result
+rk.header ("Generic Plot")
+rk.graph.on ()
+try({
+ par (mar=c (5.0, 4.0, 4.9, 2.0))
+
+ plot(women[["weight"]], type="b", ylim=c (100, 200), main="This is a test", sub="subtitle", las=2, cex.axis=1.1);
+
+ grid(nx=NA, ny=NULL, col="blue", lty="dashed");
+})
+rk.graph.off ()
+})
Added: trunk/rkward/tests/plots/plot_options.rkout
===================================================================
--- trunk/rkward/tests/plots/plot_options.rkout (rev 0)
+++ trunk/rkward/tests/plots/plot_options.rkout 2012-09-27 07:44:24 UTC (rev 4317)
@@ -0,0 +1,3 @@
+<h1>Generic Plot</h1>
+DATE<br />
+<img src="graph.png" width="480" height="480"><br>
Modified: trunk/rkward/tests/plots.R
===================================================================
--- trunk/rkward/tests/plots.R 2012-09-26 17:15:37 UTC (rev 4316)
+++ trunk/rkward/tests/plots.R 2012-09-27 07:44:24 UTC (rev 4317)
@@ -51,6 +51,9 @@
new ("RKTest", id="generic_plot", call=function () {
rk.call.plugin ("rkward::plot", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", xvarslot.available="swiss", yvarslot.available="", submit.mode="submit")
}),
+ new ("RKTest", id="plot_options", call=function () {
+ rk.call.plugin ("rkward::plot", plotoptions.add_grid.state="1", plotoptions.asp.real="0.00", plotoptions.cexaxis.text="1.1", plotoptions.custom_margins.checked="1", plotoptions.grid_options.col.color.string="blue", plotoptions.grid_options.custlwd.state="", plotoptions.grid_options.equilogs.state="1", plotoptions.grid_options.linetype.string="dashed", plotoptions.grid_options.nx.string="NA", plotoptions.grid_options.ny.string="NULL", plotoptions.main.text="This is a test", plotoptions.mainisquote.state="1", plotoptions.margin_bottom.real="5.0", plotoptions.margin_left.real="4.0", plotoptions.margin_right.real="2.0", plotoptions.margin_top.real="4.9", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="b", plotoptions.sub.text="subtitle", plotoptions.subisquote.state="1", plotoptions.ticklblrot.string="2", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="200", plotoptions.yminvalue.text="100", xvarslot.available="women[[\"weight\"]]", yvarslot.available="", submit.mode="submit")
+ }),
new ("RKTest", id="histogram", call=function () {
rk.call.plugin ("rkward::histogram", adjust.real="4.00", bw.string="nrd", col_density.color.string="blue", density.state="1", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="1", histogram_opt.density.real="-1.", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="vec", histogram_opt.histbreaks_veclength.real="6.", histogram_opt.histlinetype.string="solid", histogram_opt.include_lowest.state="1", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", n.real="512.00", narm.state="na.rm=TRUE", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", x.available="swiss[[\"Education\"]]", submit.mode="submit")
}),
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the rkward-tracker
mailing list