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)
dcnorris/precautionary documentation built on Feb. 5, 2022, 12:13 p.m.