R/flash.R

In nverno/sjs: Blah blah blah

##' Flash an alert message bootstrap style.  
##' It will display the alert in first of the following containers, by order
##' of preference: 'flash-container', 'container', 'container-fluid', 'body[0]'.  
##' Use the flash-container though, since it will will be styled to come to the top.
##' @title Flash a message
##' @param session session
##' @param text text
##' @param type type: boostrap types ['info', 'warning', 'danger', 'success']
##' @param duration Duration of message (in seconds).  If 0, the message stays open until closed.
##' @export
flash <- function(session, text, type='info', duration=3) {
    duration <- duration*1000
    session$sendCustomMessage(
        type='flash', list(message=HTML(text), type=type, duration=duration)
    )
}

##' Called in the UI to create a spot for flashing alerts.
##' @title Create a location to flash messages
##' @param id Optional id of div
##' @param ... Additional arguments passed to flash-container div
##' @export
flashPoint <- function(id='', ...) {
    ftag <- shiny::tags$div(class='flash-container', id=id, ...)
    htmltools::attachDependencies(ftag, sjsDep)
}