if (interactive()) {
op <- options(device.ask.default = FALSE)
latticist(CO2)
if (require(rattle)) {
invisible(readline("When you are ready..."))
audit <- read.csv(system.file("csv", "audit.csv",
package = "rattle"))
latticist(audit, new=TRUE)
}
options(op)
}
Run the code above in your browser using DataLab