R/f7Gallery.R

In RinteRface/shinyMobile: Mobile Ready 'shiny' Apps with Standalone Capabilities

#' @title Launch the shinyMobile Gallery
#'
#' @description A gallery of all components available in shinyMobile.
#'
#' @export
#'
#' @examples
#' if (interactive()) {
#'
#'  f7Gallery()
#'
#' }
f7Gallery <- function() { # nocov start
  if (!requireNamespace(package = "shiny"))
    message("Package 'shiny' is required to run this function")
  shiny::shinyAppFile(
    system.file(
      "examples/gallery/app.R",
      package = 'shinyMobile',
      mustWork = TRUE
    )
  )
} # nocov end