[rkward-cvs] SF.net SVN: rkward:[3814] trunk/rkward/rkward/rbackend/rpackages/rkwarddev

[m-eik at users.sourceforge.net]

Revision: 3814
          http://rkward.svn.sourceforge.net/rkward/?rev=3814&view=rev
Author:   m-eik
Date:     2011-09-21 18:53:25 +0000 (Wed, 21 Sep 2011)
Log Message:
-----------
rkwarddev: added option to provide wizard code to rk.plugin.skeleton()

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.plugin.skeleton.Rd

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog	2011-09-21 18:46:10 UTC (rev 3813)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog	2011-09-21 18:53:25 UTC (rev 3814)
@@ -1,7 +1,7 @@
 ChangeLog for package rkwarddev
 
 ## 0.01-4 (2011-09-21)
-  - added wizard code option to rk.XML.plugin()
+  - added wizard code options to rk.XML.plugin() and rk.plugin.skeleton()
 
 ## 0.01-3 (2011-09-16)
   - added rk.XML.spinbox() and missing options to rk.XML.browser() and rk.XML.saveobj()

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R	2011-09-21 18:46:10 UTC (rev 3813)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R	2011-09-21 18:53:25 UTC (rev 3814)
@@ -7,6 +7,7 @@
 #' @param path Character sting, path to the main directory where the skeleton should be created.
 #' @param dialog A list of objects of class XiMpLe.node. If provided, will be included in the
 #'		created plugin XML file as the dialog.
+#' @param wiz.dialog Like \code{dialog}, but will be included as the wizard dialog code (and only if \code{wizard=TRUE} as well).
 #' @param dial.require A character vector with names of R packages that the dialog requires.
 #' @param overwrite Logical, whether existing files should be replaced. Defaults to \code{FALSE}.
 #' @param wizard Logical, whether a \code{<wizard>} section should be added to the \code{<dialog>} section.
@@ -75,7 +76,7 @@
 #'   dialog=test.tabbook, overwrite=TRUE)
 #' }
 
-rk.plugin.skeleton <- function(name, about, path=tempdir(), dialog=list(), dial.require=c(), overwrite=FALSE, wizard=FALSE, tests=TRUE, lazyLoad=TRUE){
+rk.plugin.skeleton <- function(name, about, path=tempdir(), dialog=list(), wiz.dialog=list(), dial.require=c(), overwrite=FALSE, wizard=FALSE, tests=TRUE, lazyLoad=TRUE){
 	# to besure, remove all non-character symbols from name
 	name.orig <- name
 	name <- gsub("[[:space:]]*[^[:alnum:]]*", "", name)
@@ -141,6 +142,7 @@
 			name=name,
 			label=name.orig,
 			children=dialog,
+			wiz.children=wiz.dialog,
 			provides=plugin.provides,
 			pluginmap=paste("../", name, ".pluginmap", sep=""))
 		cat(pasteXMLTree(XML.plugin, shine=1), file=plugin.xml)

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.plugin.skeleton.Rd
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.plugin.skeleton.Rd	2011-09-21 18:46:10 UTC (rev 3813)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.plugin.skeleton.Rd	2011-09-21 18:53:25 UTC (rev 3814)
@@ -3,8 +3,9 @@
 \title{Create skeleton for RKWard plugins}
 \usage{
   rk.plugin.skeleton(name, about, path = tempdir(), dialog
-  = list(), dial.require = c(), overwrite = FALSE, wizard =
-  FALSE, tests = TRUE, lazyLoad = TRUE)
+  = list(), wiz.dialog = list(), dial.require = c(),
+  overwrite = FALSE, wizard = FALSE, tests = TRUE, lazyLoad
+  = TRUE)
 }
 \arguments{
   \item{name}{Character sting, name of the plugin package.}
@@ -22,6 +23,10 @@
   provided, will be included in the created plugin XML file
   as the dialog.}
 
+  \item{wiz.dialog}{Like \code{dialog}, but will be
+  included as the wizard dialog code (and only if
+  \code{wizard=TRUE} as well).}
+
   \item{dial.require}{A character vector with names of R
   packages that the dialog requires.}
 

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