R/runGUI.R

In IDEATools: Individual and Group Farm Sustainability Assessments using the IDEA4 Method

#' Minimal Shiny app for IDEATools
#'
#' This function loads a graphical user interface (GUI) to use IDEATools.
#' @export
#' @return Loads a shiny application
#' @examples
#' library(IDEATools)
#'
#' ## Only run this example in interactive R sessions
#' if (interactive()) {
#'   runGUI()
#' }
#' @importFrom rlang check_installed
#' @importFrom shiny runApp
runGUI <- function() {
  rlang::check_installed("shiny", reason = "to use `runGUI()`")
  appDir <- system.file("ShinyApp", package = "IDEATools")
  if (appDir == "") {
    stop("Could not find directory. Try re-installing `IDEATools`.", call. = FALSE)
  }
  shiny::runApp(appDir, display.mode = "normal")
}