R/loadModule.R

loadModule <-
function(x) {
    attrs <- xmlAttrs(x)
    if ("ref" %in% names(attrs)) {
        module <- readModule(attrs["ref"])
        contents <- xmlChildren(xmlRoot(module))
        addChildren(x, kids=contents)
    }
}
bradleydrayton/pipeline documentation built on May 13, 2019, 2:27 a.m.