Nothing
#' Create a Boostrap 4 argon modal
#'
#' Build an argon modal
#'
#' @param ... Modal body content.
#' @param id Modal unique id. Should be the same as modal_id from \link{argonButton}.
#' @param title Modal title.
#' @param status Modal color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
#' @param gradient Modal background gradient. FALSE by default. Does not work if status is NULL.
#'
#' @examples
#' if(interactive()){
#' library(argonR)
#' argonModal(
#' id = "modal1",
#' title = "This is a modal",
#' status = "danger",
#' gradient = TRUE,
#' "YOU SHOULD READ THIS!",
#' br(),
#' "A small river named Duden flows by their place and supplies it with the necessary regelialia."
#' )
#' }
#'
#' @author David Granjon, \email{dgranjon@@ymail.com}
#'
#' @export
argonModal <- function(..., id, title = NULL, status = NULL, gradient = FALSE) {
modalCl <- "modal-dialog modal-dialog-centered"
if (!is.null(status)) modalCl <- paste0(modalCl, " modal-", status)
contentCl <- "modal-content"
if (gradient) {
if (!is.null(status)) contentCl <- paste0(contentCl, " bg-gradient-", status)
}
# header
modalHeader <- htmltools::tags$div(
class = "modal-header",
htmltools::tags$h5(class = "modal-title", id = paste0(id, "Label") , title),
htmltools::tags$button(
type = "button",
class = "close",
`data-dismiss` = "modal",
`aria-label` = "Close",
htmltools::tags$span(`aria-hidden` = "true", "x")
)
)
# footer
modalFooter <- htmltools::tags$div(class = "modal-footer")
# content
modalBody <- htmltools::tags$div(class = "modal-body", ...)
modalWrapper <- htmltools::tags$div(
class = "modal fade",
id = id,
tabindex = "-1",
role = "dialog",
`aria-labelledby` = paste0(id, "Label"),
`aria-hidden` = "true",
htmltools::tags$div(
class = modalCl,
role = "document",
htmltools::tags$div(
class = contentCl,
modalHeader,
modalBody,
modalFooter
)
)
)
modalWrapper
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.