if (interactive()) {
playwith(xyplot(1:100 ~ 1:100 | 1:2, subscripts = TRUE),
labels = paste("label", 1:100, sep=""))
playSetIDs(value = c(50:60, 100))
playGetIDs()
playSetIDs(value = c(10, 20, 30), type = "labelled",
space = "packet 1")
playGetIDs(labels = TRUE)
playClear()
playGetIDs()
}
Run the code above in your browser using DataLab