Nothing
# Running Shiny app 'EscRisk' ...
old <- options(device.ask.default = FALSE)
appDir <- system.file("shiny-apps", "EscRisk", package = "precautionary")
shiny::runApp(appDir, display.mode = "normal")
options(old)
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.