#' 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) {}
)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.