R/runExample.R

In wleepang/shiny-directory-input: A widget for interactive selection of directories for R Shiny Applications

#' @name runDirinputExample
#' 
#' @title Runs a demo app with the code
#' 
#' @details 
#' Runs a demo app with the code. See the code in the example_application folder for
#' how this is accomplished.
#' 
#' @export
runDirinputExample <- function() {
  appDir <- system.file("example_application", package = "shinyDirectoryInput")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `shinyDirectoryInput`.", call. = FALSE)
  }
  
  shiny::runApp(appDir, display.mode = "normal")
}