View source: R/modal-functionality.R
| twBtnOpenModal | R Documentation |
Creates a button to open a Modal Dialog
twBtnOpenModal( btn_id, btn_label, btn_class = NULL, icon = NULL, modal_id = "shiny-modal" )
btn_id |
ID of the button |
btn_label |
Label for the button |
btn_class |
Classes to style the button |
icon |
an optional icon for the button |
modal_id |
ID of the modal, make sure that the IDs are identical to the
one used in |
a list with a shiny.tag class
ui <- div(
use_tailwind(),
class = "h-screen bg-stone-100 p-10",
twBtnOpenModal(
"open_modal", "Show Modal",
btn_class = "px-5 py-2 bg-rose-500 hover:bg-rose-700 text-white cursor-pointer rounded-md"
),
twModalDialog(p("Hello World"), )
)
server <- function(input, output, session) {
observeEvent(input$open_modal, {
print("Modal Opened")
})
observeEvent(input$submit, {
print("Modal Closed - Submitted")
})
observeEvent(input$close, {
print("Modal Closed - Closed")
})
}
if (interactive() == TRUE) shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.