checkModule: checkModule

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

Usage

checkModule(x, outputs = NULL)

Arguments

x
outputs

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, outputs = NULL) 
{
    platforms <- sapply(getNodeSet(x, "platform"), xmlValue)
    if (length(platforms)) {
        platformOK <- "R" %in% platforms
        cat("R in platforms\n")
    }
    else {
        platformOK <- TRUE
        cat("No platform specified\n")
    }
    if (platformOK) {
        inputs <- inputs(x)
        if (length(inputs)) {
            inputOK <- matchIO(outputs, inputs)
        }
        else {
            inputOK <- TRUE
            cat("No inputs specified\n")
        }
        if (inputOK) {
            modules <- getNodeSet(x, "module")
            if (length(modules)) {
                outputs <- outputs(x)
                all(sapply(modules, checkModule, outputs))
            }
            else {
                TRUE
            }
        }
        else {
            FALSE
        }
    }
    else {
        FALSE
    }
  }

bradleydrayton/pipeline documentation built on May 13, 2019, 2:27 a.m.