R/gui.R

In ahp: Analytic Hierarchy Process

#' Shows a GUI (Graphical User Interface) that lets you specify AHP models and view the results.
#' 
#' @inheritParams shiny::runApp
#' 
#' @export
RunGUI <- function(port = getOption("shiny.port")) {
    appDir <- system.file("gui", "shiny", package = "ahp")
    if (appDir == "") {
      stop("Could not find example directory. Try re-installing `ahp`.", call. = FALSE)
    }
    
    shiny::runApp(appDir, display.mode = "normal", port = port)
}