if (FALSE) {
stopme <- function(panel) panel$count<=20
callme <- function(panel) {
print(panel$count)
panel$count = panel$count+1
panel
}
panel <- rp.control(count=1)
rp.timer(panel, 500, callme, stopme)
}
Run the code above in your browser using DataLab