R/shinyWidgetsGallery.R

#' @title Launch the shinyWidget Gallery
#'
#' @description
#' A gallery of widgets available in the package.
#'
#'
#' @importFrom shiny shinyAppDir
#' @export
#'
#' @examples
#' \dontrun{
#'
#' if (interactive()) {
#'
#'  shinyWidgetsGallery()
#'
#' }
#'
#' }
shinyWidgetsGallery <- function() { # nocov start
  if (!requireNamespace(package = "shinydashboard"))
    message("Package 'shinydashboard' is required to run this function")
  shiny::shinyAppDir(system.file('examples/shinyWidgets', package='shinyWidgets', mustWork=TRUE))
}
# nocov end
dreamRs/shinyWidgets documentation built on June 5, 2019, 4:07 a.m.