R/listdemos.R

In sfcheung/lstatdemo: Demonstrations, usually shiny apps, for learning statistics

#'@title List the demos and select one to run
#'
#'@description This function shows a list of shiny app demos for user to choose one to run.
#'
#'@return The app will start in a web browser
#'
#'@examples
#'\dontrun{
#'listdemos()
#'}
#'@export

listdemos <- function() {
  demo_list <- list.dirs(system.file("apps",
                package="lstatdemo"), full.names=FALSE,
                recursive=FALSE)
  # directories to drop
  dirs2drop <- c("templateSidebar01",
                  "templateSidebar02",
                  "mediationStdES")
  tmp <- match(dirs2drop, demo_list)
  demo_list <- demo_list[-tmp[!is.na(tmp)]]
  demo_choice <- menu(demo_list)
  shiny::runApp(system.file(paste("apps/", demo_list[demo_choice],
                sep=""), package="lstatdemo"))
}