[rkward-cvs] SF.net SVN: rkward:[4335] branches/external_plugins/rk.ANOVA/inst/rkward/ rkwarddev_ANOVA_plugin_script.R

[m-eik at users.sourceforge.net]

Revision: 4335
          http://rkward.svn.sourceforge.net/rkward/?rev=4335&view=rev
Author:   m-eik
Date:     2012-09-30 19:45:55 +0000 (Sun, 30 Sep 2012)
Log Message:
-----------
rk.ANOVA: updated rkwarddev plugin script

Modified Paths:
--------------
    branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R

Modified: branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R	2012-09-30 19:44:35 UTC (rev 4334)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R	2012-09-30 19:45:55 UTC (rev 4335)
@@ -377,7 +377,7 @@
 ip.chk.se <- rk.XML.cbox("Standard error", val="true", chk=TRUE)
 ip.chk.legend <- rk.XML.cbox("Legend", val="true", chk=TRUE)
 ip.inp.trace.label <- rk.XML.input("Legend label")
-ip.plot.options <- rk.XML.embed(component="rkward::plot_options", button=TRUE, label="Generic plot options")
+ip.plot.options <- rk.plotOptions()
 ip.preview <- rk.XML.preview()
 
 ## logic
@@ -413,7 +413,6 @@
 	), label="Interaction plot")
 
 ## JavaScript
-js.po.printout <- rk.JS.vars(ip.plot.options, modifiers="code.printout", check.modifiers=FALSE)
 ip.js.prnt <- 	rk.paste.JS.graph(
 	ite(rkwarddev:::id(ip.rad.plottype, " == \"line\""),
 		echo("\t\tlineplot.CI("),
@@ -427,10 +426,9 @@
 	ite(rkwarddev:::id(ip.rad.plottype, " == \"bar\" & ", ip.chk.legend, " == \"true\" & ", ip.tvar.group, " != \"\""), echo(",\n\t\t\tlegend=TRUE")),
 	ite(rkwarddev:::id(ip.chk.legend, " == \"true\" & ", ip.tvar.group, " != \"\" & ", ip.inp.trace.label, " != \"\""), echo(",\n\t\t\ttrace.label=\"", ip.inp.trace.label, "\"")),
 	ite(rkwarddev:::id("!", ip.chk.se), echo(",\n\t\t\tci.fun=function(x)c(mean(x, na.rm=TRUE), mean(x, na.rm=TRUE))")),
-	id("echo(", js.po.printout, ".replace(/, /g, \",\\n\\t\\t\\t\"));"),
+	id("echo(", ip.plot.options, ".replace(/, /g, \",\\n\\t\\t\\t\"));"),
 	echo(")"),
-	plotOpts=ip.plot.options,
-	printoutObj=js.po.printout
+	plotOpts=ip.plot.options
 )
 
 ## make a whole component of the interaction plot

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