R/tileWhatIf.R

In chrisadolph/tileForShiny: Plot multiple graphical displays in a tiled layout with automated or customizable titles, axes, and annotations

tileWhatIf <- function(extrapolate) {
    require(WhatIf)
    print("Running whatif")
    wi <- whatif(formula=extrapolate$formula, data=extrapolate$data, cfact=extrapolate$cfact, mc.cores=1)
    print("Whatif finished; returning to tile")
    extrapolate$control <- !wi$in.hull
    extrapolate
}