R/runServer.R

In IOHprofiler/IOHanalyzer: Data Analysis Part of 'IOHprofiler'

#'  Create a shiny-server GUI to interactively use the IOHanalyzer
#' @param port Optional; which port the server should be opened at. Defaults
#' to the option set for 'shiny.port'
#' @param open_browser Whether or not to open a browser tab with the
#' IOHanalyzer GUI. Defaults to TRUE.
#' @param orca_gpu Whether or not orca will be allowed to use gpu-accelleration for saving figures to file.
#' @export
#' @examples
#' \dontrun{
#' runServer(6563, TRUE)
#' }
runServer <-
  function(port = getOption('shiny.port'),
           open_browser = TRUE,
           orca_gpu = TRUE) {
    appDir <- system.file("shiny-server", package = "IOHanalyzer")
    if (appDir == "") {
      stop("Could not find example directory. Try re-installing `IOHanalyzer`.",
           call. = FALSE)
    }
    for (pkgname in c(
      'DT',
      'bsplus',
      'colourpicker',
      'kableExtra',
      'markdown',
      'shinydashboard',
      'shinyjs'
    )) {
      if (!requireNamespace(pkgname, quietly = TRUE)) {
        stop(
          paste0(
            "Package \"",
            pkgname,
            "\" is needed for this function to work.
           It is recommended to install all suggested packages if you want to make use of the GUI functionality."
          ),
          call. = FALSE
        )
      }
    }
    options("IOHanalyzer.orca_use_gpu" = orca_gpu)

    shiny::runApp(
      appDir,
      port = port,
      launch.browser = open_browser,
      display.mode = "normal"
    )
  }