22 lines
653 B
R
22 lines
653 B
R
#' @export
|
|
run_app <- function(host = "0.0.0.0", 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)
|
|
}
|