R/run_Shiny.R

In bishun945/AlgalGame: A reaction-diffusion-taxis model of phytoplankton in the vertical profile

#' @export
#' @aliases run_shiny
run_Shiny <- function() {

  appPath <- system.file("shiny-examples", "AlgalGameShiny.R", package = "AlgalGame")

  if(appPath == "") {

    stop("Could not find example path. Try re-installing `AlgalGame`.", call. = FALSE)

  }

  shiny::runApp(appPath, display.mode = "normal")

}