[rkward-cvs] SF.net SVN: rkward-code:[4577] branches/external_plugins/rk.subset/inst/ rkward/rkwarddev_plugin_script.R

[tfry at users.sf.net]

Revision: 4577
          http://sourceforge.net/p/rkward/code/4577
Author:   tfry
Date:     2013-03-09 12:59:29 +0000 (Sat, 09 Mar 2013)
Log Message:
-----------
Use a backwards compatible fix, instead.

Modified Paths:
--------------
    branches/external_plugins/rk.subset/inst/rkward/rkwarddev_plugin_script.R

Modified: branches/external_plugins/rk.subset/inst/rkward/rkwarddev_plugin_script.R
===================================================================
--- branches/external_plugins/rk.subset/inst/rkward/rkwarddev_plugin_script.R	2013-03-09 12:54:32 UTC (rev 4576)
+++ branches/external_plugins/rk.subset/inst/rkward/rkwarddev_plugin_script.R	2013-03-09 12:59:29 UTC (rev 4577)
@@ -159,10 +159,10 @@
 sset.js.calc <- rk.paste.JS(
 	js.selected.vars <- rk.JS.vars(selected.vars, modifiers="shortname", join="\\\", \\\""), # get selected vars
 	js.filter.var <- rk.JS.vars(filter.var, modifiers="shortname", join="\\\", \\\""),
-	js.filter.mode.all <- rk.JS.vars(sset.filter.drop, modifiers="visible", getter="getBoolean"),
-	js.filter.mode.fct <- rk.JS.vars(sset.filter.drop.factor, modifiers="visible", getter="getBoolean"),
-	js.filter.mode.lgc <- rk.JS.vars(sset.filter.drop.logical, modifiers="visible", getter="getBoolean"),
-	js.filter.mode.nmb <- rk.JS.vars(sset.filter.drop.numeric, modifiers="visible", getter="getBoolean"),
+	js.filter.mode.all <- rk.JS.vars(sset.filter.drop, modifiers="visible.numeric"),
+	js.filter.mode.fct <- rk.JS.vars(sset.filter.drop.factor, modifiers="visible.numeric"),
+	js.filter.mode.lgc <- rk.JS.vars(sset.filter.drop.logical, modifiers="visible.numeric"),
+	js.filter.mode.nmb <- rk.JS.vars(sset.filter.drop.numeric, modifiers="visible.numeric"),
 	echo("\tsset.result <- subset("),
 	ite(var.data, echo("\n\t\t", var.data)),
 	ite(id(js.filter.mode.all, " && ", js.frm.filter, " && ", js.filter.var, " != \"\""),