## ----eval=FALSE---------------------------------------------------------------
# # Add a handler to the 'new-event' event
# id <- app$on('new-event', function() {
#   message('Event fired')
# })
# 
# # Trigger the event
# app$trigger('new-event')
# 
# # Remove the handler
# app$off(id)

## ----eval=FALSE---------------------------------------------------------------
# app$trigger_dir <- '/some/path/to/dir/'

## ----eval=FALSE---------------------------------------------------------------
# saveRDS(list(arg1 = 'test'), '/some/path/to/dir/external-event.rds')