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
我想显示该按钮会在一个间隔中显示。但是有一个错误，我无法解决它。有谁可以帮助我？