#' @export
run_app <- function(host = "0.0.0.0", port = as.integer(Sys.getenv("PORT", "3838"))) {
  log_init()

  api <- list(
    base_url = Sys.getenv("API_URL", "http://localhost:8000"),
    user     = Sys.getenv("API_USER", "homestead"),
    pass     = Sys.getenv("API_PASS", "homestead")
  )

  server_fn <- function(input, output, session) {
    log_info("session_start", session_id = session$token)
    session$onSessionEnded(function()
      log_info("session_end", session_id = session$token)
    )
    server(input, output, session, db = api)
  }

  app <- shiny::shinyApp(ui = ui(), server = server_fn)
  shiny::runApp(app, host = host, port = port, launch.browser = FALSE)
}