## Not run:
# shinyUI(fluidPage(
# registerSceneChange(),
# actionButton("thebutton", "Change")
# ))
#
# shinyServer(function(input, output, session) {
# observeEvent(input$thebutton, {
# session$sendCustomMessage("sceneChange",
# sceneChange("thewidget", delete = deletes, add = adds))
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab