R/guessex.R

In cszang/guessex: Explore Results of LPJ-GUESS Runs

#' Run shiny app to explore two output files of LPG-GUESS runs
#'
#' @return nothing, invoked for side effect
#' @export
#'
#' @examples
#' NULL
guessex <- function() {
  app_dir <- system.file("shiny-app", "guessex", package = "guessex")
  if (app_dir == "") {
    stop("try reinstalling the package...")
  }
  shiny::runApp(app_dir, display.mode = "normal")
}