stopme <- function(panel) panel$i<=20
callme <- function(panel) {
for(i in 1:20){
rp.button(panel, "press me", name="b1")
rp.widget.dispose(panel, "b1" )
panel$i = panel$i+1
panel
}
}
panel <- rp.control(i=1)
rp.timer(panel, 500, callme, stopme)
Error in if (where(panel)) timer <- handshake(tcl, "after", microseconds,
argument is of length zero
Я хочу показать, что кнопка будет отображаться с интервалом.Но есть ошибка, которую я не могу исправить.Кто-нибудь может мне помочь?