Capturing the state of a box in a (secondary) input

3. Create an update function to change the status of the box.

updateBox <- function(
  id, 
  session = getDefaultReactiveDomain()
) {
  session$sendInputMessage(id, message = NULL)
}