R/run_app.R

In PascalCrepey/HospiCoV: HospiCoV

#' Run the Shiny Application
#' @param ... list of params sent to golem_opts
#' @importFrom shiny shinyApp
#' @importFrom golem with_golem_options
run_app <- function(...) {
  with_golem_options(
    app = shinyApp(ui = app_ui, server = app_server),
    golem_opts = list(...) 
  )
}

#' Launch the shiny application
#' @export
#' 
shiny_app = function() {
  options( "golem.app.prod" = TRUE)
  run_app() # add parameters here (if any)
}