bulmaModal | R Documentation |
Display a modal
bulmaModal(id, options, session = shiny::getDefaultReactiveDomain())
id |
Unique modal id. |
options |
Modal configuration. See https://github.com/VizuaaLOG/BulmaJS. |
session |
A valid shiny session. |
library(shiny) ui <- bulmaPage( bulmaActionButton("show_modal", "Show modal"), bulmaActionButton("show_modal2", "Show modal 2") ) server <- function(input, output){ observeEvent(input$show_modal, { bulmaModal( id = "mymodal", list( title = "Modal title", body = "Modal content" ) ) }) observeEvent(input$show_modal2, { bulmaModal( id = "mymodal2", list( title = "Modal title 2", body = "Modal content 2" ) ) }) } if(interactive()) shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.