# NOT RUN {
# }
# NOT RUN {
k <- 0
openPage()
sendCommand(paste0("button = document.createElement('input');",
"button.type = 'button';",
"button.addEventListener('click', function() {jrc.sendCommand('k <<- k + 1')});",
"button.value = '+1';",
"document.body.appendChild(button);", collapse = "\n"))
closePage()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab