R/geodude_example.R

In ghcarlalan/graveler: Builds standardized, modular shiny dashboard frameworks

#' @title Launch a small graveler example
#'
#' @description A gallery of widgets available in the package.
#'
#' @importFrom shiny shinyAppDir
#' @export
#'
#' @examples
#' if (interactive()) {
#'
#'  geodude_example()
#'
#' }
geodude_example <- function() { # nocov start
  if (!requireNamespace(package = "shinydashboard"))
    message("Package 'shinydashboard' is required to run this function")
  shiny::shinyAppDir(system.file("examples/geodude", package = "graveler", mustWork = TRUE))
}
# nocov end