library(shiny)
library(bs4Dash)
# Inside server_local.R
createPSAlert(id = "sidebarRightAlert",
options = list(title = "Right Side",
status = "success",
closable = TRUE,
content = "Example Basic Sidebar Alert"))
# Test se
## a div with class "badge-danger.navbar-badge" must be exist in UI to display alert
selector <- "div.badge-danger.navbar-badge"
createPSAlert(selector = selector,
options = list(title = "Selector Title",
status = "danger",
closable = TRUE,
content = "Selector Alert"))
Run the code above in your browser using DataLab