[rkward-cvs] SF.net SVN: rkward:[3813] trunk/rkward/rkward/rbackend/rpackages/rkwarddev
m-eik at users.sourceforge.net
m-eik at users.sourceforge.net
Wed Sep 21 18:46:10 UTC 2011
Revision: 3813
http://rkward.svn.sourceforge.net/rkward/?rev=3813&view=rev
Author: m-eik
Date: 2011-09-21 18:46:10 +0000 (Wed, 21 Sep 2011)
Log Message:
-----------
rkwarddev: added option to provide wizard code to rk.XML.plugin()
Modified Paths:
--------------
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.plugin.R
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rkwarddev-package.R
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/inst/CITATION
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.XML.plugin.Rd
trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rkwarddev-package.Rd
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ChangeLog 2011-09-21 18:46:10 UTC (rev 3813)
@@ -1,5 +1,8 @@
ChangeLog for package rkwarddev
+## 0.01-4 (2011-09-21)
+ - added wizard code option to rk.XML.plugin()
+
## 0.01-3 (2011-09-16)
- added rk.XML.spinbox() and missing options to rk.XML.browser() and rk.XML.saveobj()
- corrected browser default type in rk.XML.browser()
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION 2011-09-21 18:46:10 UTC (rev 3813)
@@ -15,8 +15,8 @@
URL: http://rkward.sourceforge.net
Authors at R: c(person(given="Meik", family="Michalke",
email="meik.michalke at hhu.de", role=c("aut", "cre")))
-Version: 0.01-3
-Date: 2011-09-16
+Version: 0.01-4
+Date: 2011-09-21
Collate:
'rk-internal.R'
'rk.JS.array.R'
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.plugin.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.plugin.R 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.plugin.R 2011-09-21 18:46:10 UTC (rev 3813)
@@ -2,7 +2,9 @@
#'
#' @param name Character string, the name of the plugin.
#' @param label Character string, a text label for the plugin's top level, i.e. the window title of the dialog.
-#' @param children An optional list with objects of class \code{XiMpLe.node}. Will be included inside the top level node.
+#' @param children An optional list with objects of class \code{XiMpLe.node}. Will be included inside the top level node as the dialog code.
+#' @param wiz.children An optional list with objects of class \code{XiMpLe.node}. Will be included inside the top level node as the wizard code
+#' (but only if \code{provides} includes \code{"wizard"} as well).
#' @param help Logical, if \code{TRUE} an include tag for a help file named \emph{"<name>.rkh"} will be added to the header.
#' @param logic Logical, if \code{TRUE} a logic section will be added to the document.
#' This must be edited manually, it is therefore commented out.
@@ -25,7 +27,7 @@
#' test.plugin <- rk.XML.plugin("My test", label="Check this out", children=test.tabbook)
#' cat(pasteXMLTree(test.plugin, shine=1))
-rk.XML.plugin <- function(name, label, children=list(), help=TRUE, logic=TRUE, provides=c("dialog"), pluginmap=NULL){
+rk.XML.plugin <- function(name, label, children=list(), wiz.children=list(), help=TRUE, logic=TRUE, provides=c("dialog"), pluginmap=NULL){
name.orig <- name
name <- gsub("[[:space:]]*[^[:alnum:]]*", "", name)
if(!identical(name.orig, name)){
@@ -84,8 +86,8 @@
name="page",
attributes=list(label=label),
value="")
- if(length(children) > 0){
- plugin.wizard.page at children <- child.list(children)
+ if(length(wiz.children) > 0){
+ plugin.wizard.page at children <- child.list(wiz.children)
} else {}
plugin.wizard <- new("XiMpLe.node",
name="wizard",
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rkwarddev-package.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rkwarddev-package.R 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rkwarddev-package.R 2011-09-21 18:46:10 UTC (rev 3813)
@@ -3,8 +3,8 @@
#' \tabular{ll}{
#' Package: \tab rkwarddev\cr
#' Type: \tab Package\cr
-#' Version: \tab 0.01-3\cr
-#' Date: \tab 2011-09-16\cr
+#' Version: \tab 0.01-4\cr
+#' Date: \tab 2011-09-21\cr
#' Depends: \tab R (>= 2.9.0), XiMpLe\cr
#' Enhances: \tab rkward\cr
#' Encoding: \tab UTF-8\cr
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/inst/CITATION
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/inst/CITATION 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/inst/CITATION 2011-09-21 18:46:10 UTC (rev 3813)
@@ -3,12 +3,12 @@
author=c(person(given="Meik", family="Michalke", email="meik.michalke at hhu.de",
role=c("aut", "cre"))),
year="2011",
- note="(Version 0.01-3)",
+ note="(Version 0.01-4)",
url="http://rkward.sourceforge.net",
textVersion =
paste("Michalke, M. (2011). ",
- "rkwarddev: A collection of tools for RKWard plugin development (Version 0.01-3). ",
+ "rkwarddev: A collection of tools for RKWard plugin development (Version 0.01-4). ",
"Available from http://rkward.sourceforge.net",
sep=""),
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.XML.plugin.Rd
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.XML.plugin.Rd 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rk.XML.plugin.Rd 2011-09-21 18:46:10 UTC (rev 3813)
@@ -2,9 +2,9 @@
\alias{rk.XML.plugin}
\title{Create XML document for RKWard plugins}
\usage{
- rk.XML.plugin(name, label, children = list(), help =
- TRUE, logic = TRUE, provides = c("dialog"), pluginmap =
- NULL)
+ rk.XML.plugin(name, label, children = list(),
+ wiz.children = list(), help = TRUE, logic = TRUE,
+ provides = c("dialog"), pluginmap = NULL)
}
\arguments{
\item{name}{Character string, the name of the plugin.}
@@ -14,8 +14,13 @@
\item{children}{An optional list with objects of class
\code{XiMpLe.node}. Will be included inside the top level
- node.}
+ node as the dialog code.}
+ \item{wiz.children}{An optional list with objects of
+ class \code{XiMpLe.node}. Will be included inside the top
+ level node as the wizard code (but only if
+ \code{provides} includes \code{"wizard"} as well).}
+
\item{help}{Logical, if \code{TRUE} an include tag for a
help file named \emph{"<name>.rkh"} will be added to the
header.}
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rkwarddev-package.Rd
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rkwarddev-package.Rd 2011-09-21 18:14:13 UTC (rev 3812)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/man/rkwarddev-package.Rd 2011-09-21 18:46:10 UTC (rev 3813)
@@ -8,8 +8,8 @@
}
\details{
\tabular{ll}{ Package: \tab rkwarddev\cr Type: \tab
- Package\cr Version: \tab 0.01-3\cr Date: \tab
- 2011-09-16\cr Depends: \tab R (>= 2.9.0), XiMpLe\cr
+ Package\cr Version: \tab 0.01-4\cr Date: \tab
+ 2011-09-21\cr Depends: \tab R (>= 2.9.0), XiMpLe\cr
Enhances: \tab rkward\cr Encoding: \tab UTF-8\cr License:
\tab GPL (>= 3)\cr LazyLoad: \tab yes\cr URL: \tab
http://rkward.sourceforge.net\cr }
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