Nothing
## ---- 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')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.