R/io.R

In bradleydrayton/pipeline: Modules and glue for making analysis pipelines

io <- function(parent, type) {
    nodes <- getNodeSet(parent, type)
    formats <- sapply(nodes, xmlValue)
    # Strip leading/trailing white space
    gsub("^[[:space:]]+|[[:space:]]+$", "", formats)
}