R/bs4DashGallery.R

In bs4Dash: A 'Bootstrap 4' Version of 'shinydashboard'

#' @title Launch the bs4Dash Gallery
#'
#' @description A gallery of all components available in bs4Dash.
#'
#' @export
#'
#' @examples
#'
#' if (interactive()) {
#'
#'  bs4DashGallery()
#'
#' }
bs4DashGallery <- function() {
  # nocov start
  rlang::check_installed(c("thematic", "waiter"), "to run `bs4DashGallery()`.")

  shiny::shinyAppDir(
    system.file(
      "examples/showcase",
      package = 'bs4Dash',
      mustWork = TRUE
    )
  )
  # nocov end
}