inst/unit/runit.xmlfromfile.R

In R4X: Manipulation of XML structures

test.xmlfromfile <- function()
{
	targetFile <- system.file(package = "R4X", "unit/book.xml")
	# the xml function should recognize that targetFile is a file
	contents <- xml(targetFile)
	checkEquals(contents["book/author/#"], c("Capinsky, Marek","Tuckman, Bruce"), 
			checkNames = FALSE)
 	# checkEquals(contents, xml(readLines(targetFile)))
}

#> bar["book/author/#"]
#book              book 
#"Capinsky, Marek"  "Tuckman, Bruce"