R/ui_utils.r

In skranz/shinyEventsLogin: A simple login framework as part of shinyEvents apps (probably not very secure)

check.ui = function(ui, create.app=TRUE) {
  if (create.app)
    app = eventsApp()
  app$ui = fluidPage(
    ui
  )
  runEventsApp(app, launch.browser = rstudio::viewer)
}