[rkward-cvs] SF.net SVN: rkward-code:[4531] trunk/rkward/packages/XiMpLe
m-eik at users.sf.net
m-eik at users.sf.net
Sat Feb 9 00:11:40 UTC 2013
Revision: 4531
http://sourceforge.net/p/rkward/code/4531
Author: m-eik
Date: 2013-02-09 00:11:38 +0000 (Sat, 09 Feb 2013)
Log Message:
-----------
XiMpLe: added setter methods (and tests), therefore renamed the getter methods again to have consistent naming and intuitive usage
Modified Paths:
--------------
trunk/rkward/packages/XiMpLe/ChangeLog
trunk/rkward/packages/XiMpLe/DESCRIPTION
trunk/rkward/packages/XiMpLe/NAMESPACE
trunk/rkward/packages/XiMpLe/R/XiMpLe-package.R
trunk/rkward/packages/XiMpLe/R/zzz_is_get_utils.R
trunk/rkward/packages/XiMpLe/inst/tests/tests.R
trunk/rkward/packages/XiMpLe/man/XMLGetters-methods.Rd
trunk/rkward/packages/XiMpLe/man/XiMpLe-package.Rd
Modified: trunk/rkward/packages/XiMpLe/ChangeLog
===================================================================
--- trunk/rkward/packages/XiMpLe/ChangeLog 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/ChangeLog 2013-02-09 00:11:38 UTC (rev 4531)
@@ -1,5 +1,12 @@
ChangeLog for package XiMpLe
+changes in version 0.03-18 (2013-02-08)
+changed:
+ - renamed getter methods from getXML*() into the more generic XML*()
+added:
+ - added setter methods XML*()<- to all getter methods
+ - added tests for getter/setter methods
+
changes in version 0.03-17 (2013-02-04)
added:
- added proper is.XiMpLe.node() and is.XiMpLe.doc() functions
Modified: trunk/rkward/packages/XiMpLe/DESCRIPTION
===================================================================
--- trunk/rkward/packages/XiMpLe/DESCRIPTION 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/DESCRIPTION 2013-02-09 00:11:38 UTC (rev 4531)
@@ -8,19 +8,20 @@
Suggests:
testthat
Enhances: rkward
-Description: This package provides a simple XML tree parser/generator. It
- includes functions to read XML files into R objects, get information out of
- and into nodes, and write R objects back to XML code. It's not as powerful
- as the XML package and doesn't aim to be, but for simple XML handling it
- could be useful. It was originally programmed for RKWard.
+Description: This package provides a simple XML tree parser/generator.
+ It includes functions to read XML files into R objects, get
+ information out of and into nodes, and write R objects back to
+ XML code. It's not as powerful as the XML package and doesn't
+ aim to be, but for simple XML handling it could be useful. It
+ was originally programmed for RKWard.
License: GPL (>= 3)
Encoding: UTF-8
LazyLoad: yes
URL: http://reaktanz.de/?c=hacking&s=XiMpLe
Authors at R: c(person(given="Meik", family="Michalke",
email="meik.michalke at hhu.de", role=c("aut", "cre")))
-Version: 0.03-17
-Date: 2013-02-04
+Version: 0.03-18
+Date: 2013-02-08
Collate:
'XiMpLe-internal.R'
'XiMpLe.node-class.R'
Modified: trunk/rkward/packages/XiMpLe/NAMESPACE
===================================================================
--- trunk/rkward/packages/XiMpLe/NAMESPACE 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/NAMESPACE 2013-02-09 00:11:38 UTC (rev 4531)
@@ -1,22 +1,29 @@
-export(XMLNode)
-export(XMLTree)
+exportClasses(XiMpLe.doc)
+exportClasses(XiMpLe.node)
export(is.XiMpLe.doc)
export(is.XiMpLe.node)
+exportMethods(node)
+exportMethods("node<-")
+exportMethods(pasteXML)
+exportMethods(show)
+exportMethods(XMLAttrs)
+exportMethods("XMLAttrs<-")
+exportMethods(XMLChildren)
+exportMethods("XMLChildren<-")
+exportMethods(XMLDecl)
+exportMethods("XMLDecl<-")
+exportMethods(XMLDTD)
+exportMethods("XMLDTD<-")
+exportMethods(XMLFile)
+exportMethods("XMLFile<-")
+exportMethods(XMLName)
+exportMethods("XMLName<-")
+exportMethods(XMLValue)
+exportMethods("XMLValue<-")
export(parseXMLTree)
export(pasteXMLNode)
export(pasteXMLTag)
export(pasteXMLTree)
-exportClasses(XiMpLe.doc)
-exportClasses(XiMpLe.node)
-exportMethods("node<-")
-exportMethods(getXMLAttrs)
-exportMethods(getXMLChildren)
-exportMethods(getXMLDTD)
-exportMethods(getXMLDecl)
-exportMethods(getXMLFile)
-exportMethods(getXMLName)
-exportMethods(getXMLValue)
-exportMethods(node)
-exportMethods(pasteXML)
-exportMethods(show)
+export(XMLNode)
+export(XMLTree)
import(methods)
Modified: trunk/rkward/packages/XiMpLe/R/XiMpLe-package.R
===================================================================
--- trunk/rkward/packages/XiMpLe/R/XiMpLe-package.R 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/R/XiMpLe-package.R 2013-02-09 00:11:38 UTC (rev 4531)
@@ -3,8 +3,8 @@
#' \tabular{ll}{
#' Package: \tab XiMpLe\cr
#' Type: \tab Package\cr
-#' Version: \tab 0.03-17\cr
-#' Date: \tab 2013-02-04\cr
+#' Version: \tab 0.03-18\cr
+#' Date: \tab 2013-02-08\cr
#' Depends: \tab R (>= 2.9.0),methods\cr
#' Enhances: \tab rkward\cr
#' Encoding: \tab UTF-8\cr
Modified: trunk/rkward/packages/XiMpLe/R/zzz_is_get_utils.R
===================================================================
--- trunk/rkward/packages/XiMpLe/R/zzz_is_get_utils.R 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/R/zzz_is_get_utils.R 2013-02-09 00:11:38 UTC (rev 4531)
@@ -15,12 +15,12 @@
}
-#' Getter methods for S4 objects of XiMpLe XML classes
+#' Getter/setter methods for S4 objects of XiMpLe XML classes
#'
-#' Used to get certain slots from objects of class \code{\link[XiMpLe:XiMpLe.doc-class]{XiMpLe.doc}}
+#' Used to get/set certain slots from objects of class \code{\link[XiMpLe:XiMpLe.doc-class]{XiMpLe.doc}}
#' and \code{\link[XiMpLe:XiMpLe.node-class]{XiMpLe.node}}.
#'
-#' These are convenience methods to get slots from XML objects without using the \code{@@} operator.
+#' These are convenience methods to get or set slots from XML objects without using the \code{@@} operator.
#'
#' @param obj An object of class \code{XiMpLe.node} or \code{XiMpLe.doc}
#' @seealso
@@ -29,16 +29,15 @@
#' @keywords methods
#' @docType methods
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLName
-setGeneric("getXMLName", function(obj) standardGeneric("getXMLName"))
-
+#' @exportMethod XMLName
+setGeneric("XMLName", function(obj) standardGeneric("XMLName"))
#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLName,-methods
-#' getXMLName,XiMpLe.node-method
+#' XMLName,-methods
+#' XMLName,XiMpLe.node-method
#' @docType methods
#' @include XiMpLe.node-class.R
-setMethod("getXMLName",
+setMethod("XMLName",
signature=signature(obj="XiMpLe.node"),
function(obj){
return(obj at name)
@@ -46,16 +45,32 @@
)
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLAttrs
-setGeneric("getXMLAttrs", function(obj) standardGeneric("getXMLAttrs"))
+#' @exportMethod XMLName<-
+setGeneric("XMLName<-", function(obj, value) standardGeneric("XMLName<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLName<-,-methods
+#' XMLName<-,XiMpLe.node-method
+#' @docType methods
+#' @include XiMpLe.node-class.R
+setMethod("XMLName<-",
+ signature=signature(obj="XiMpLe.node"),
+ function(obj, value){
+ obj at name <- value
+ return(obj)
+ }
+)
#' @rdname XMLGetters-methods
+#' @exportMethod XMLAttrs
+setGeneric("XMLAttrs", function(obj) standardGeneric("XMLAttrs"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLAttrs,-methods
-#' getXMLAttrs,XiMpLe.node-method
+#' XMLAttrs,-methods
+#' XMLAttrs,XiMpLe.node-method
#' @docType methods
#' @include XiMpLe.node-class.R
-setMethod("getXMLAttrs",
+setMethod("XMLAttrs",
signature=signature(obj="XiMpLe.node"),
function(obj){
return(obj at attributes)
@@ -63,47 +78,91 @@
)
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLChildren
-setGeneric("getXMLChildren", function(obj) standardGeneric("getXMLChildren"))
+#' @exportMethod XMLAttrs<-
+setGeneric("XMLAttrs<-", function(obj, value) standardGeneric("XMLAttrs<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLAttrs<-,-methods
+#' XMLAttrs<-,XiMpLe.node-method
+#' @docType methods
+#' @include XiMpLe.node-class.R
+setMethod("XMLAttrs<-",
+ signature=signature(obj="XiMpLe.node"),
+ function(obj, value){
+ obj at attributes <- value
+ return(obj)
+ }
+)
#' @rdname XMLGetters-methods
+#' @exportMethod XMLChildren
+setGeneric("XMLChildren", function(obj) standardGeneric("XMLChildren"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLChildren,-methods
-#' getXMLChildren,XiMpLe.node-method
+#' XMLChildren,-methods
+#' XMLChildren,XiMpLe.node-method
#' @docType methods
#' @include XiMpLe.node-class.R
-setMethod("getXMLChildren",
+setMethod("XMLChildren",
signature=signature(obj="XiMpLe.node"),
function(obj){
return(obj at children)
}
)
-
#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLChildren,-methods
-#' getXMLChildren,XiMpLe.doc-method
+#' XMLChildren,-methods
+#' XMLChildren,XiMpLe.doc-method
#' @docType methods
#' @include XiMpLe.doc-class.R
-setMethod("getXMLChildren",
+setMethod("XMLChildren",
signature=signature(obj="XiMpLe.doc"),
function(obj){
return(obj at children)
}
)
-
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLValue
-setGeneric("getXMLValue", function(obj) standardGeneric("getXMLValue"))
+#' @exportMethod XMLChildren<-
+setGeneric("XMLChildren<-", function(obj, value) standardGeneric("XMLChildren<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLChildren<-,-methods
+#' XMLChildren<-,XiMpLe.node-method
+#' @docType methods
+#' @include XiMpLe.node-class.R
+setMethod("XMLChildren<-",
+ signature=signature(obj="XiMpLe.node"),
+ function(obj, value){
+ obj at children <- child.list(value)
+ return(obj)
+ }
+)
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLChildren<-,-methods
+#' XMLChildren<-,XiMpLe.doc-method
+#' @docType methods
+#' @include XiMpLe.doc-class.R
+setMethod("XMLChildren<-",
+ signature=signature(obj="XiMpLe.doc"),
+ function(obj, value){
+ obj at children <- child.list(value)
+ return(obj)
+ }
+)
+
#' @rdname XMLGetters-methods
+#' @exportMethod XMLValue
+setGeneric("XMLValue", function(obj) standardGeneric("XMLValue"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLValue,-methods
-#' getXMLValue,XiMpLe.node-method
+#' XMLValue,-methods
+#' XMLValue,XiMpLe.node-method
#' @docType methods
#' @include XiMpLe.node-class.R
-setMethod("getXMLValue",
+setMethod("XMLValue",
signature=signature(obj="XiMpLe.node"),
function(obj){
return(obj at value)
@@ -111,16 +170,32 @@
)
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLFile
-setGeneric("getXMLFile", function(obj) standardGeneric("getXMLFile"))
+#' @exportMethod XMLValue<-
+setGeneric("XMLValue<-", function(obj, value) standardGeneric("XMLValue<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLValue<-,-methods
+#' XMLValue<-,XiMpLe.node-method
+#' @docType methods
+#' @include XiMpLe.node-class.R
+setMethod("XMLValue<-",
+ signature=signature(obj="XiMpLe.node"),
+ function(obj, value){
+ obj at value <- value
+ return(obj)
+ }
+)
#' @rdname XMLGetters-methods
+#' @exportMethod XMLFile
+setGeneric("XMLFile", function(obj) standardGeneric("XMLFile"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLFile,-methods
-#' getXMLFile,XiMpLe.doc-method
+#' XMLFile,-methods
+#' XMLFile,XiMpLe.doc-method
#' @docType methods
#' @include XiMpLe.doc-class.R
-setMethod("getXMLFile",
+setMethod("XMLFile",
signature=signature(obj="XiMpLe.doc"),
function(obj){
return(obj at file)
@@ -128,16 +203,32 @@
)
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLDecl
-setGeneric("getXMLDecl", function(obj) standardGeneric("getXMLDecl"))
+#' @exportMethod XMLFile<-
+setGeneric("XMLFile<-", function(obj, value) standardGeneric("XMLFile<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLFile<-,-methods
+#' XMLFile<-,XiMpLe.doc-method
+#' @docType methods
+#' @include XiMpLe.doc-class.R
+setMethod("XMLFile<-",
+ signature=signature(obj="XiMpLe.doc"),
+ function(obj, value){
+ obj at file <- value
+ return(obj)
+ }
+)
#' @rdname XMLGetters-methods
+#' @exportMethod XMLDecl
+setGeneric("XMLDecl", function(obj) standardGeneric("XMLDecl"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLDecl,-methods
-#' getXMLDecl,XiMpLe.doc-method
+#' XMLDecl,-methods
+#' XMLDecl,XiMpLe.doc-method
#' @docType methods
#' @include XiMpLe.doc-class.R
-setMethod("getXMLDecl",
+setMethod("XMLDecl",
signature=signature(obj="XiMpLe.doc"),
function(obj){
return(obj at xml)
@@ -145,19 +236,51 @@
)
#' @rdname XMLGetters-methods
-#' @exportMethod getXMLDTD
-setGeneric("getXMLDTD", function(obj) standardGeneric("getXMLDTD"))
+#' @exportMethod XMLDecl<-
+setGeneric("XMLDecl<-", function(obj, value) standardGeneric("XMLDecl<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLDecl<-,-methods
+#' XMLDecl<-,XiMpLe.doc-method
+#' @docType methods
+#' @include XiMpLe.doc-class.R
+setMethod("XMLDecl<-",
+ signature=signature(obj="XiMpLe.doc"),
+ function(obj, value){
+ obj at xml <- value
+ return(obj)
+ }
+)
#' @rdname XMLGetters-methods
+#' @exportMethod XMLDTD
+setGeneric("XMLDTD", function(obj) standardGeneric("XMLDTD"))
+#' @rdname XMLGetters-methods
#' @aliases
-#' getXMLDTD,-methods
-#' getXMLDTD,XiMpLe.doc-method
+#' XMLDTD,-methods
+#' XMLDTD,XiMpLe.doc-method
#' @docType methods
#' @include XiMpLe.doc-class.R
-setMethod("getXMLDTD",
+setMethod("XMLDTD",
signature=signature(obj="XiMpLe.doc"),
function(obj){
return(obj at dtd)
}
)
+#' @rdname XMLGetters-methods
+#' @exportMethod XMLDTD<-
+setGeneric("XMLDTD<-", function(obj, value) standardGeneric("XMLDTD<-"))
+#' @rdname XMLGetters-methods
+#' @aliases
+#' XMLDTD<-,-methods
+#' XMLDTD<-,XiMpLe.doc-method
+#' @docType methods
+#' @include XiMpLe.doc-class.R
+setMethod("XMLDTD<-",
+ signature=signature(obj="XiMpLe.doc"),
+ function(obj, value){
+ obj at dtd <- value
+ return(obj)
+ }
+)
Modified: trunk/rkward/packages/XiMpLe/inst/tests/tests.R
===================================================================
--- trunk/rkward/packages/XiMpLe/inst/tests/tests.R 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/inst/tests/tests.R 2013-02-09 00:11:38 UTC (rev 4531)
@@ -58,9 +58,9 @@
sampleXMLparsed.test <- parseXMLTree(XMLtoParse)
close(XMLtoParse)
- expect_that(
+ expect_that(
sampleXMLparsed.test,
- equals(sampleXMLparsed))
+ equals(sampleXMLparsed))
})
@@ -74,9 +74,9 @@
sampleXMLnode.test <- node(sampleXMLparsed, node=list("rss","channel","atom:link"))
- expect_that(
+ expect_that(
sampleXMLnode.test,
- equals(sampleXMLnode.extracted))
+ equals(sampleXMLnode.extracted))
})
@@ -98,9 +98,9 @@
node=list("rss","channel","atom:link"),
what="attributes", element="rel") <- NULL
- expect_that(
+ expect_that(
sampleXMLparsed,
- equals(sampleXMLparsed.changed))
+ equals(sampleXMLparsed.changed))
})
test_that("change nested text value in XML node", {
@@ -115,7 +115,109 @@
what="value",
cond.value="Changes in koRpus version 0.04-30") <- "this value was changed!"
- expect_that(
+ expect_that(
sampleXMLparsed,
- equals(sampleXMLparsed.changed.value))
+ equals(sampleXMLparsed.changed.value))
})
+
+context("getter/setter methods")
+
+test_that("set and get XML node name", {
+ sampleXMLnode <- XMLNode("name", attrs=list(atr="test"))
+ # set node name
+ XMLName(sampleXMLnode) <- "changed"
+ sampleXMLnode.name <- XMLName(sampleXMLnode)
+
+ expect_that(
+ sampleXMLnode.name,
+ equals("changed"))
+})
+
+test_that("set and get XML node attributes", {
+ sampleXMLnode <- XMLNode("name", attrs=list(atr="test"))
+ # set node attributes
+ XMLAttrs(sampleXMLnode) <- list()
+ sampleXMLnode.attrs <- XMLAttrs(sampleXMLnode)
+
+ expect_that(
+ sampleXMLnode.attrs,
+ equals(list()))
+})
+
+test_that("set and get XML node text value", {
+ sampleXMLnode <- XMLNode("name", attrs=list(atr="test"))
+ # set node name
+ XMLValue(sampleXMLnode) <- "added value"
+ sampleXMLnode.value <- XMLValue(sampleXMLnode)
+
+ expect_that(
+ sampleXMLnode.value,
+ equals("added value"))
+})
+
+test_that("set and get XML node children", {
+ sampleXMLnode <- XMLNode("name", attrs=list(atr="test"))
+ # children will be returned as a list
+ sampleXMLChild <- list(XMLNode("child", attrs=list(atr="test")))
+ # set node children
+ XMLChildren(sampleXMLnode) <- sampleXMLChild
+ sampleXMLnode.children <- XMLChildren(sampleXMLnode)
+
+ expect_that(
+ sampleXMLnode.children,
+ equals(sampleXMLChild))
+})
+
+test_that("set and get XML tree children", {
+ load("sample_XML_tree.RData")
+ # children will be returned as a list
+ sampleXMLChild <- list(XMLNode("child", attrs=list(atr="test")))
+ # set node children
+ XMLChildren(sampleXMLTree) <- sampleXMLChild
+ sampleXMLTree.children <- XMLChildren(sampleXMLTree)
+
+ expect_that(
+ sampleXMLTree.children,
+ equals(sampleXMLChild))
+})
+
+test_that("set and get XML tree DTD info", {
+ load("sample_XML_tree.RData")
+ sampleDTD <- list(doctype="html", decl="PUBLIC",
+ id="-//W3C//DTD XHTML 1.0 Transitional//EN",
+ refer="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd")
+ # set missing values
+ XMLDTD(sampleXMLTree) <- sampleDTD
+ # try to get them back
+ sampleXMLTree.DTD <- XMLDTD(sampleXMLTree)
+
+ expect_that(
+ sampleXMLTree.DTD,
+ equals(sampleDTD))
+})
+
+test_that("set and get XML tree decl info", {
+ load("sample_XML_tree.RData")
+ sampleDecl <- list(version="1.0", encoding="UTF-8")
+ # set missing values
+ XMLDecl(sampleXMLTree) <- sampleDecl
+ # try to get them back
+ sampleXMLTree.decl <- XMLDecl(sampleXMLTree)
+
+ expect_that(
+ sampleXMLTree.decl,
+ equals(sampleDecl))
+})
+
+test_that("set and get XML tree file info", {
+ load("sample_XML_tree.RData")
+ # set missing values
+ XMLFile(sampleXMLTree) <- "somefile.xml"
+ # try to get them back
+ sampleXMLTree.file <- XMLFile(sampleXMLTree)
+
+ expect_that(
+ sampleXMLTree.file,
+ equals("somefile.xml"))
+})
+
Modified: trunk/rkward/packages/XiMpLe/man/XMLGetters-methods.Rd
===================================================================
--- trunk/rkward/packages/XiMpLe/man/XMLGetters-methods.Rd 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/man/XMLGetters-methods.Rd 2013-02-09 00:11:38 UTC (rev 4531)
@@ -1,40 +1,62 @@
\docType{methods}
-\name{getXMLName}
-\alias{getXMLAttrs}
-\alias{getXMLAttrs,-methods}
-\alias{getXMLAttrs,XiMpLe.node-method}
-\alias{getXMLChildren}
-\alias{getXMLChildren,-methods}
-\alias{getXMLChildren,XiMpLe.doc-method}
-\alias{getXMLChildren,XiMpLe.node-method}
-\alias{getXMLDecl}
-\alias{getXMLDecl,-methods}
-\alias{getXMLDecl,XiMpLe.doc-method}
-\alias{getXMLDTD}
-\alias{getXMLDTD,-methods}
-\alias{getXMLDTD,XiMpLe.doc-method}
-\alias{getXMLFile}
-\alias{getXMLFile,-methods}
-\alias{getXMLFile,XiMpLe.doc-method}
-\alias{getXMLName}
-\alias{getXMLName,-methods}
-\alias{getXMLName,XiMpLe.node-method}
-\alias{getXMLValue}
-\alias{getXMLValue,-methods}
-\alias{getXMLValue,XiMpLe.node-method}
-\title{Getter methods for S4 objects of XiMpLe XML classes}
+\name{XMLName}
+\alias{XMLAttrs}
+\alias{XMLAttrs<-}
+\alias{XMLAttrs<-,-methods}
+\alias{XMLAttrs,-methods}
+\alias{XMLAttrs<-,XiMpLe.node-method}
+\alias{XMLAttrs,XiMpLe.node-method}
+\alias{XMLChildren}
+\alias{XMLChildren<-}
+\alias{XMLChildren<-,-methods}
+\alias{XMLChildren,-methods}
+\alias{XMLChildren<-,XiMpLe.doc-method}
+\alias{XMLChildren,XiMpLe.doc-method}
+\alias{XMLChildren<-,XiMpLe.node-method}
+\alias{XMLChildren,XiMpLe.node-method}
+\alias{XMLDecl}
+\alias{XMLDecl<-}
+\alias{XMLDecl<-,-methods}
+\alias{XMLDecl,-methods}
+\alias{XMLDecl<-,XiMpLe.doc-method}
+\alias{XMLDecl,XiMpLe.doc-method}
+\alias{XMLDTD}
+\alias{XMLDTD<-}
+\alias{XMLDTD<-,-methods}
+\alias{XMLDTD,-methods}
+\alias{XMLDTD<-,XiMpLe.doc-method}
+\alias{XMLDTD,XiMpLe.doc-method}
+\alias{XMLFile}
+\alias{XMLFile<-}
+\alias{XMLFile<-,-methods}
+\alias{XMLFile,-methods}
+\alias{XMLFile<-,XiMpLe.doc-method}
+\alias{XMLFile,XiMpLe.doc-method}
+\alias{XMLName}
+\alias{XMLName<-}
+\alias{XMLName<-,-methods}
+\alias{XMLName,-methods}
+\alias{XMLName<-,XiMpLe.node-method}
+\alias{XMLName,XiMpLe.node-method}
+\alias{XMLValue}
+\alias{XMLValue<-}
+\alias{XMLValue<-,-methods}
+\alias{XMLValue,-methods}
+\alias{XMLValue<-,XiMpLe.node-method}
+\alias{XMLValue,XiMpLe.node-method}
+\title{Getter/setter methods for S4 objects of XiMpLe XML classes}
\arguments{
\item{obj}{An object of class \code{XiMpLe.node} or
\code{XiMpLe.doc}}
}
\description{
- Used to get certain slots from objects of class
+ Used to get/set certain slots from objects of class
\code{\link[XiMpLe:XiMpLe.doc-class]{XiMpLe.doc}} and
\code{\link[XiMpLe:XiMpLe.node-class]{XiMpLe.node}}.
}
\details{
- These are convenience methods to get slots from XML
- objects without using the \code{@} operator.
+ These are convenience methods to get or set slots from
+ XML objects without using the \code{@} operator.
}
\seealso{
\code{\link[XiMpLe:XiMpLe.doc-class]{XiMpLe.doc}}
Modified: trunk/rkward/packages/XiMpLe/man/XiMpLe-package.Rd
===================================================================
--- trunk/rkward/packages/XiMpLe/man/XiMpLe-package.Rd 2013-02-08 19:15:29 UTC (rev 4530)
+++ trunk/rkward/packages/XiMpLe/man/XiMpLe-package.Rd 2013-02-09 00:11:38 UTC (rev 4531)
@@ -8,8 +8,8 @@
}
\details{
\tabular{ll}{ Package: \tab XiMpLe\cr Type: \tab
- Package\cr Version: \tab 0.03-17\cr Date: \tab
- 2013-02-04\cr Depends: \tab R (>= 2.9.0),methods\cr
+ Package\cr Version: \tab 0.03-18\cr Date: \tab
+ 2013-02-08\cr Depends: \tab R (>= 2.9.0),methods\cr
Enhances: \tab rkward\cr Encoding: \tab UTF-8\cr License:
\tab GPL (>= 3)\cr LazyLoad: \tab yes\cr URL: \tab
http://reaktanz.de/?c=hacking&s=XiMpLe\cr }
More information about the rkward-tracker
mailing list