R/run_app.R

In lanceupton/shinyROI: shinyROI

#' Run the Shiny Application
#'
#' #' @examples
#' run_app()
#'
#' @export
#' @importFrom shiny shinyApp
#' @importFrom golem with_golem_options
run_app <- function(...) {
  shiny_opts <- list(port = 1221, launch.browser = TRUE)
  with_golem_options(
    app = shinyApp(ui = ui, server = server, options = shiny_opts),
    golem_opts = list(...)
  )
}