demo/EscRisk.R

# 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)

Try the precautionary package in your browser

Any scripts or data that you put into this service are public.

precautionary documentation built on Aug. 9, 2021, 9:14 a.m.