R/run_app.R

In mrbarrientosg/iraceStudio: An Amazing Shiny App

plan("future::sequential")
pkg <- new.env(parent = emptyenv())
pkg$reportStore <- list()

scenarioOptions <- jsonlite::fromJSON(
  system.file("app/static/scenario_options.json", package = packageName()),
  simplifyDataFrame = TRUE,
  flatten = TRUE
)

#' Run Irace Studio
#'
#' @param port A port number that Irace Studio will listen on.
#'
#' @export
runIraceStudio <- function(port = 4350, ...) {
  options(golem.app.prod = TRUE) 
  run_app(port, ...)
}

run_app <- function(port = 4350, ...) {
  app <- App$new()
  
  with_golem_options(
    app = shinyApp(
      ui = app$ui,
      server = app$server,
      onStart = function() {
        app$setup()
      },
      options = list(
        port = port,
        launch.browser = TRUE,
        minified = TRUE,
        deprecation.message = FALSE
      )
    ),
    golem_opts = list(...)
  )
}