inst/slowtests/test.epilog.R

In rpart.plot: Plot 'rpart' Models: An Enhanced Version of 'plot.rpart'

# test.epilog.R

if(!interactive()) {
    dev.off()         # finish postscript plot
    q(runLast=FALSE)  # needed else R prints the time on exit
                      # (R2.5 and higher) which messes up the diffs
}