if (interactive()) {
library(lattice)
x <- as.Date("1990-01-01") + 1:20 - 1
ab <- rep(c("a", "b"), each=10)
playwith(xyplot(1:20 ~ x | ab, subscripts = TRUE))
playState <- playDevCur()
xyCoords(playState, space="packet 2")
xyData(playState, space="packet 2")
try(xyData(playState, space="plot"))
getDataArg(playState)
}
Run the code above in your browser using DataLab