R/bsModal.R

In shinyBS: Twitter Bootstrap Components for Shiny

#'bsModal
#'
#'\code{bsModal} is used within the UI to create a modal window.
#'
#'@param id A unique identifier for the modal window
#'@param title The title to appear at the top of the modal
#'@param trigger The id of a button or link that will open the modal.
#'@param \dots UI elements to include within the modal
#'@param size \bold{Optional} What size should the modal be? (\code{small} or \code{large})
#'@templateVar item_name bsModal
#'@templateVar family_name Modals
#'@template item_details
#'@template footer
#'@export
bsModal <- function(id, title, trigger, ..., size) {
  if(!missing(size)) {
    if(size == "large") {
      size = "modal-lg"
    } else if(size == "small") {
      size = "modal-sm"
    }
    size <- paste("modal-dialog", size)
  } else {
    size <- "modal-dialog"
  }
  bsTag <- shiny::tags$div(class = "modal sbs-modal fade", id = id, tabindex = "-1", "data-sbs-trigger" = trigger,
                 shiny::tags$div(class = size,
                          shiny::tags$div(class = "modal-content",
                                   shiny::tags$div(class = "modal-header",
                                            shiny::tags$button(type = "button", class = "close", "data-dismiss" = "modal", shiny::tags$span(shiny::HTML("&times;"))),
                                            shiny::tags$h4(class = "modal-title", title)
                                   ),
                                   shiny::tags$div(class = "modal-body", list(...)),
                                   shiny::tags$div(class = "modal-footer",
                                            shiny::tags$button(type = "button", class = "btn btn-default", "data-dismiss" = "modal", "Close")
                                   )
                          )
                 )
  )
  
  htmltools::attachDependencies(bsTag, shinyBSDep)
  
}