View source: R/bs_components.R
| bsAlert | R Documentation | 
Add a Bootstrap3 alert component to the UI
bsAlert(..., status = "success", closeable = TRUE)
| ... | any shiny tag or tagList you want to add to the alert body, or any additional attributes you want to add to the alert element. | 
| status | string, one of "success", "info", "warning", "danger" | 
| closeable | bool, can the alert be closed? | 
Read more here: https://getbootstrap.com/docs/3.3/components/#alerts
shiny tag element
if(interactive()) {
  library(shiny)
  ui <- fluidPage(
    bsAlert(tags$b("Success: "), "You made it", status = "success"),
    bsAlert(tags$b("Info: "), "Something happened", status = "info"),
    bsAlert(tags$b("Warning: "), "Something is not right", status = "warning"),
    bsAlert(tags$b("Danger: "), "Oh no...", status = "danger")
  )
  server <- function(input, output, session) {}
  shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.