Modal

Display a modal

bulmaModal(id, options, session = shiny::getDefaultReactiveDomain())

Arguments

id

Unique modal id.

options

Modal configuration. See https://github.com/VizuaaLOG/BulmaJS.

session

A valid shiny session.

Examples

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)