R/whpt_app.R

In ecodata1/whpt: Predict WHPT scores

#' Open whpt assessment web app
#'
#' Open whpt assessment an interactive shiny web app.
#'
#' @details
#' \code{whpt_app()} opens interactive shiny app.
#'
#' Using the app:
#' \enumerate{
#'  \item Select your location and add observed aspt, ntaxa.
#'  \item View assessment and download results.
#'  \item There is no third step.
#'  }
#'
#' @examples
#' \dontrun{
#' whpt_app()
#' }
#'
#' @export whpt_app

whpt_app <- function() {
  message("This app is a work in progress")
  appDir <- system.file("shiny_apps", "whptapp", package = "whpt")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `whpt`.", call. = FALSE)
  }
  shiny::runApp(appDir, display.mode = "normal", launch.browser = T)
}