# NOT RUN {
action1 <- function(panel) {
panel$x <- rnorm(1)
rp.control.put(panel$panelname, panel)
rp.do(panel, action2)
panel
}
action2 <- function(panel) {
print(panel$x)
panel
}
panel <- rp.control(x = 0)
rp.button(panel, action1, "new x")
# }
Run the code above in your browser using DataCamp Workspace