[rkward-cvs] SF.net SVN: rkward-code:[4937] trunk/rkward/packages/rkwarddev

[m-eik at users.sf.net]

Revision: 4937
          http://sourceforge.net/p/rkward/code/4937
Author:   m-eik
Date:     2014-10-19 14:04:23 +0000 (Sun, 19 Oct 2014)
Log Message:
-----------
rkwarddev: fixing the docs... see "?rk.JS.optionset" for a working example

Modified Paths:
--------------
    trunk/rkward/packages/rkwarddev/R/rk.JS.optionset.R
    trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
    trunk/rkward/packages/rkwarddev/man/rk.JS.optionset.Rd

Modified: trunk/rkward/packages/rkwarddev/R/rk.JS.optionset.R
===================================================================
--- trunk/rkward/packages/rkwarddev/R/rk.JS.optionset.R	2014-10-19 13:54:42 UTC (rev 4936)
+++ trunk/rkward/packages/rkwarddev/R/rk.JS.optionset.R	2014-10-19 14:04:23 UTC (rev 4937)
@@ -60,14 +60,14 @@
 #' )
 #' 
 #' # now translate it to JavaScript for loop
-# JS.optionset <- rk.JS.optionset(dep.optionset.packages,
-#   echo("c("),
-#   echo("name=\"", dep.optioncol.pckg.name, "\""),
-#   ite(dep.optioncol.pckg.min, echo(", min=\"", dep.optioncol.pckg.min, "\"")),
-#   ite(dep.optioncol.pckg.max, echo(", max=\"", dep.optioncol.pckg.max, "\"")),
-#   ite(dep.optioncol.pckg.repo, echo(", repository=\"", dep.optioncol.pckg.repo, "\"")),
-#   echo(")")
-# )
+#' JS.optionset <- rk.JS.optionset(dep.optionset.packages,
+#'   echo("c("),
+#'   echo("name=\"", dep.optioncol.pckg.name, "\""),
+#'   ite(dep.optioncol.pckg.min, echo(", min=\"", dep.optioncol.pckg.min, "\"")),
+#'   ite(dep.optioncol.pckg.max, echo(", max=\"", dep.optioncol.pckg.max, "\"")),
+#'   ite(dep.optioncol.pckg.repo, echo(", repository=\"", dep.optioncol.pckg.repo, "\"")),
+#'   echo(")")
+#' )
 
 rk.JS.optionset <- function(optionset, ..., loopvar="i", collapse=",\\n\\t", vars=FALSE, guess.getter=TRUE){
   optioncolumn.nodes <- child.list(XMLScan(optionset, "optioncolumn"))

Modified: trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
===================================================================
(Binary files differ)

Modified: trunk/rkward/packages/rkwarddev/man/rk.JS.optionset.Rd
===================================================================
--- trunk/rkward/packages/rkwarddev/man/rk.JS.optionset.Rd	2014-10-19 13:54:42 UTC (rev 4936)
+++ trunk/rkward/packages/rkwarddev/man/rk.JS.optionset.Rd	2014-10-19 14:04:23 UTC (rev 4937)
@@ -58,6 +58,14 @@
 )
 
 # now translate it to JavaScript for loop
+JS.optionset <- rk.JS.optionset(dep.optionset.packages,
+  echo("c("),
+  echo("name=\\"", dep.optioncol.pckg.name, "\\""),
+  ite(dep.optioncol.pckg.min, echo(", min=\\"", dep.optioncol.pckg.min, "\\"")),
+  ite(dep.optioncol.pckg.max, echo(", max=\\"", dep.optioncol.pckg.max, "\\"")),
+  ite(dep.optioncol.pckg.repo, echo(", repository=\\"", dep.optioncol.pckg.repo, "\\"")),
+  echo(")")
+)
 }
 \seealso{
 \code{\link[rkwarddev:rk.XML.optionset]{rk.XML.optionset}},