R/runModule.R

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

runModule <-
function(x) {
    src <- sapply(getNodeSet(x, "source"), xmlValue)
    cat(paste("R>", src, "\n"))
    if (length(src) > 0) {
        if (length(src) > 1) {
            warning("Only first source evaluated")
        }
        # Everything is shared via special environment
        eval(parse(text=src[[1]]), env=pmvmEnv)
        modules <- getNodeSet(x, "module")
        if (length(modules)) {
            lapply(modules, runModule)
        }
    }
}