R/run_app.R

In iofeidis/tripr: T-cell Receptor/Immunoglobulin Profiler (TRIP)

#' Run the Shiny Application
#'
#' @param ... arguments to pass to golem_opts.
#' See `?golem::get_golem_options` for more details.
#' @inheritParams shiny::shinyApp
#'
#' @export
#' @importFrom shiny shinyApp
#' @importFrom golem with_golem_options
#'
#' @return None
#' @examples
#' if (interactive()) {
#'     run_app(options = list(launch.browser = FALSE))
#' }
run_app <- function(onStart = NULL,
    options = list(launch.browser = TRUE),
    enableBookmarking = NULL,
    uiPattern = "/",
    ...) {
    with_golem_options(
        app = shinyApp(
            ui = app_ui,
            server = app_server,
            onStart = onStart,
            options = options,
            enableBookmarking = enableBookmarking,
            uiPattern = uiPattern
        ),
        golem_opts = list(...)
    )
}