Displaying 1 result from an estimated 1 matches for "statusdisplay".
2011 Feb 24
1
Objects must be passed as an argument or generated in the function, right?
...5file, psimi25source, verbose=TRUE) {
psimi25Doc <- xmlTreeParse(psimi25file, useInternalNodes = TRUE)
psimi25NS <- getDefaultNamespace(psimi25Doc)
namespaces <- c(ns = psimi25NS)
entry <- getNodeSet(psimi25Doc, "/ns:entrySet/ns:entry", namespaces)
if(verbose)
statusDisplay(paste(length(entry),"Entries found\n",sep=" "))
entryCount <- length(nodes)
entryList <- list()
for(i in 1:entryCount) {
entryList[[i]] <- parseXmlEntryNode(doc=psimi25Doc, index=i,
namespaces=namespaces,...