R/loadModule.R

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

loadModule <-
function(x) {
    attrs <- xmlAttrs(x)
    if ("ref" %in% names(attrs)) {
        module <- readModule(attrs["ref"])
        contents <- xmlChildren(xmlRoot(module))
        addChildren(x, kids=contents)
    }
}