R/eSDM_GUI.R

In smwoodman/eSDM: Ensemble Tool for Predictions from Species Distribution Models

#' Open the eSDM GUI
#'
#' Open the eSDM graphical user interface (GUI);
#'   an R Shiny app for creating ensemble predictions using SDM predictions.
#'
#' @param launch.browser Logical with default of \code{TRUE}; passed to \code{launch.browser}
#'   argument of \code{\link[shiny]{runApp}}
#'
#' @usage eSDM_GUI(launch.browser = TRUE)
#'
#' @export
eSDM_GUI <- function(launch.browser = TRUE) {
  appDir <- system.file("shiny", package = "eSDM")
  if (appDir == "") {
    stop("The eSDM GUI folder could not be found. Try re-installing 'eSDM'",
         call. = FALSE)
  }

  runApp(appDir, launch.browser = launch.browser, display.mode = "normal")
}