R/prshiny.R

In prioritizr/prioritizrshiny: Shiny interface for Systematic Conservation Prioritization in R

NULL

#' Run one of the Shiy apps for prioritizr
#'
#' Description of the prshiny function.
#'
#' @param x string for the app directory object.
#'
#' @param ... not used.
#'
#' @details Need to provide details for the function.
#'
#' @return Starts a Shiny app wrapper for prioritzr functions.
#'
#' @seealso \code{\link{prshiny_apps}}.
#'
#' @examples
#' # list available shiny apps
#' prshiny_apps()
#'
#' # run the basic app
#' # Not run
#' #prshiny("base_app")
#'
#'
#' @name prshiny
#' @docType methods
NULL

#' @export
prshiny <- function(...) {
  # # locate all the shiny apps that exist
  # validapps <- list.files(system.file("shiny-apps", package = "prioritizrshiny"))
  # 
  # validappsMsg <-
  #   paste0(
  #     "Valid apps are: '",
  #     paste(validapps, collapse = "', '"),
  #     "'")
  # 
  # # if an invalid app is given, throw an error
  # if (missing(app) || !nzchar(app) ||
  #     !app %in% validapps) {
  #   stop(
  #     'Please run `prshiny()` with a valid app as an argument.\n',
  #     validappsMsg,
  #     call. = FALSE)
  # }
  # 
  # # find and launch the app
  appDir <- system.file("shiny-apps", "prshiny", package = "prioritizrshiny")
  shiny::runApp(appDir, display.mode = "normal", launch.browser = TRUE, ...)
}