R/app.R

In vanhasseltlab/IMatlas: a tool for design and interpretation of metabolomics studies in immunology

#' @title Run Shiny App
#' @usage run_shiny(
#'    browser = TRUE,
#'    port = 2222
#' )
#' @param browser Should the browser be started?
#' @param port Which port to be used
#' @examples
#' # Start the Atlas in your browser
#' \dontrun{
#' run_shiny()
#' }
#' @rawNamespace import(shiny, except = c(dataTableOutput, renderDataTable))
#' @export
run_shiny <- function(browser = TRUE, port = 2222) {
  # env <- sys.frame()
  # if (is.null(env$interactions)) stop("No data loaded. Run 'load_data(config_path)' first.", call. = F)
  if (browser) {
    runApp(shinyApp(ui, server), launch.browser = browser, port = port)
  } else {
    shinyApp(ui, server)
  }
}