R/examples.R

Defines functions component_example

Documented in component_example

#' Component example
#' 
#' Used for documentation purposes to show shiny examples.
#' 
#' @export
#' @param ... ui taglist to render
component_example <- function(...) {
    if (interactive()) {
        options(shiny.launch.browser = FALSE)

        shiny::shinyApp(
            ui = shiny::tagList(...),
            server = function(input, output) {}
        )
    }

}
QuartzSoftwareLLC/shiny.mui documentation built on Aug. 25, 2022, 8:49 p.m.