R/value4attribute.R

In sneumann/MetShot: High throughput prioritized acquisition and processing of tandem mass spectra

value4attribute <-
function(node, attribute, value="value") {
    for (i in seq(length = length(node)) ) {
        childNode <- node[[i]]
        nodeAttributes <- xmlAttrs(childNode)

        if (any(grepl(attribute, nodeAttributes))) {
            return(nodeAttributes[value])
        }
    }
    return(NULL)
}