R/run_app.R

In asiripanich/emdash: e-mission dashboard built with the Shiny framework

#' Run the Shiny Application
#'
#' @param mongo_url address of the emisison mongodb server in mongo
#'   connection string [URI format](https://docs.mongodb.com/manual/reference/connection-string/).
#'   Default as `mongodb://localhost:27017`. If you are using the emdash docker container
#'   then this is set to `mongodb://host.docker.internal:27017`, however this may not
#'   work on Linux. If you are using Linux or Docker version prior to 18.03 you
#'   need to find the gateway ip of your Docker to connect to the database.
#' @param config_file path and file name of the YAML configuration file. By default,
#'   it uses getOption("emdash.config_file"), which is `NULL` if empty.
#' @param ... A series of options to be used inside the app.
#'
#' @export
#' @importFrom shiny shinyApp
#' @importFrom golem with_golem_options

run_app <- function(mongo_url, config_file = getOption("emdash.config_file"), ...) {
  if (!missing(mongo_url)) {
    checkmate::assert_string(mongo_url)
    options("emdash.mongo_url" = mongo_url)
  }

  load_config_file(config_file)

  app <- with_golem_options(
    app = shinyApp(
      ui = app_ui,
      server = app_server
    ),
    golem_opts = list(...)
  )

  print(app)
}


load_config_file <- function(config_file = NULL) {
  # Get the global options found in the config file
  if (is.null(config_file)) {
    message("No config file given, the default config file will be used.")
    config_file <- app_sys("config-default.yml")
  }
  checkmate::assert_file_exists(config_file)
  config <- config::get(file = config_file)
  names(config) <- paste0("emdash.", names(config))
  options(config)
}