add homekeeper stack

listkeeper/R/app.R

@@ -0,0 +1,21 @@
+#' @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)
+}