Modal windows are useful to make detailed explanations, and are typically attached to buttons or links. Thus, there are two parts to this system:

bs_modal(id, title, body, footer = bs_modal_closebutton(title = "Close"),
  size = c("medium", "large", "small"))

bs_modal_closebutton(title = "Close")

bs_attach_modal(tag, id_modal)

Arguments

id
character, unique id for the modal window
title
character, title for the modal window (or close-button)
body
character (HTML) or htmltools::tagList, content for the body of the modal window
footer
character (HTML) or htmltools::tagList, content for the footer of the modal window
size
character, size of the modal window
tag
htmltools::tag, button or link to which to attach the modal window
id_modal
character, unique id of modal window to attach

Value

bs_modal()
htmltools::tag, <div/>
bs_attach_modal()
htmltools::tag, modified copy of tag
bs_modal_closebutton()
htmltools::tag, <button/>

Details

  1. A modal window, created using bs_modal()
  2. At least one button or link to which the id of the modal window is attached, using bs_attach_modal()

The verb attach is used to signify that we are attaching the id of our modal window to the tag in question (generally a button or a link). This implies that you can attach the id of a modal window to more than one button or link.

It is your responsibility to ensure that id is unique among HTML elements in your page. If you have non-unique id's, strange things may happen to your page.

Your code may be cleaner if you can import the content for the modal body from an external source. Here, the function shiny::includeMarkdown be useful.

If you want to compose your own footer for the modal window, the function bs_modal_closebutton() can be useful.

See also

shiny::includeMarkdown

Examples

library("htmltools") library("shiny") bs_modal(id = "modal", title = "I'm a modal", body = "Yes, I am.")
#> <div class="modal fade" id="modal" tabindex="-1" role="dialog" aria-labelledby="modal-title"> #> <div class="modal-dialog" role="document"> #> <div class="modal-content"> #> <div class="modal-header"> #> <button type="button" class="close" data-dismiss="modal" aria-label="Close"> #> <span aria-hidden="true">&times;</span> #> </button> #> <h4 class="modal-title" id="modal-title">I'm a modal</h4> #> </div> #> <div class="modal-body">Yes, I am.</div> #> <div class="modal-footer"> #> <button type="button" class="btn btn-default" data-dismiss="modal">Close</button> #> </div> #> </div> #> </div> #> </div>
tags$button(type = "button", class = "btn btn-default", "Click for modal") %>% bs_attach_modal(id_modal = "modal")
#> <button type="button" class="btn btn-default" data-toggle="modal" data-target="#modal">Click for modal</button>
bs_modal( id = "modal_large", title = "I'm a modal", size = "large", body = includeMarkdown(system.file("markdown", "modal.md", package = "bsplus")) )
#> <div aria-labelledby="modal_large-title" class="modal fade bs-example-modal-lg" id="modal_large" role="dialog" tabindex="-1"> #> <div class="modal-dialog modal-lg" role="document"> #> <div class="modal-content"> #> <div class="modal-header"> #> <button type="button" class="close" data-dismiss="modal" aria-label="Close"> #> <span aria-hidden="true">&times;</span> #> </button> #> <h4 class="modal-title" id="modal_large-title">I'm a modal</h4> #> </div> #> <div class="modal-body"><h4>4th-level headers work well</h4> #> #> <p>We can do our regular Markdown stuff in modal windows.</p> #> #> <ul> #> <li>\(F = ma\)</li> #> <li>\(E = mc^2\)</li> #> </ul> #> </div> #> <div class="modal-footer"> #> <button type="button" class="btn btn-default" data-dismiss="modal">Close</button> #> </div> #> </div> #> </div> #> </div>
tags$button(type = "button", class = "btn btn-default", "Click for modal") %>% bs_attach_modal(id_modal = "modal_large")
#> <button type="button" class="btn btn-default" data-toggle="modal" data-target="#modal_large">Click for modal</button>