# Similar code to this code appears in the Shiny demo app.
renderRglcontroller(rglcontroller("thewidget",
subsetSetter(0,
subsets = unname(as.list(0:3)),
accumulate = TRUE)))
Run the code above in your browser using DataCamp Workspace