twModalDialog {shiny.tailwind} | R Documentation |
Creates a Modal Dialog
Description
Creates a Modal Dialog
Usage
twModalDialog(
ui,
close_id = "close",
close_label = "Close",
close_class = NA,
submit_id = "submit",
submit_label = "Submit",
submit_class = NA,
title = "Title of Modal",
modal_id = "shiny-modal",
modal_width = "max-w-lg"
)
Arguments
ui |
UI of the modal |
close_id |
ID for the close button |
close_label |
Label for the close button, can be a tagList of an icon and the label |
close_class |
classes for the close button, if NA default values will be used |
submit_id |
ID for the submit button |
submit_label |
Label for the submit button, can be a tagList of an icon and the label |
submit_class |
classes for the submit button, if NA default values will be used |
title |
title of the modal |
modal_id |
id of the modal, make sure the ID is identical to the one used in twBtnOpenModal |
modal_width |
optional class to define the modal width, eg |
Value
a list with a shiny.tag
class
Examples
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)
[Package shiny.tailwind version 0.2.2 Index]