## This file builds a task list from a cpd.xml or pd.xml file. TaskListFromSSXML <- function(cpdFile) { IDList <- character(0) doc <- xmlTreeParse(cpdFile, handlers=list( TaskID=function(x,attrs) { ID <- xmlValue(x[[1]]) ## Remove duplicates if (!any(ID==IDList)) { IDList <<- c(IDList,ID) } NULL }, startElement=function(x,attrs){NULL} )) return(IDList) } #TaskListFromSSXML("StatShop/xml/DataDescription.pd.xml") #TaskListFromSSXML("StatShop/xml/PreCalibrationSample.cpd.xml")