library(shiny)
library(bs4Dash)
# Inside ui_header.R
# Custom left UI menu
left_menu <- tagList(dropdownMenu(badgeStatus = "info",
type = "notifications",
notificationItem(inputId = "triggerAction2",
text = "Error!",
status = "danger")),
dropdownMenu(badgeStatus = "info",
type = "tasks",
taskItem(inputId = "triggerAction3",
text = "My progress",
color = "orange",
value = 10)))
# Custom right UI menu
right_menu <- dropdownMenu(badgeStatus = "danger",
type = "messages",
messageItem(inputId = "triggerAction1",
message = "message 1",
from = "Divad Nojnarg",
time = "today",
color = "lime"))
# -- Register Header Elements in the ORDER SHOWN in the UI
add_ui_header(left_menu = left_menu, right_menu = right_menu)
Run the code above in your browser using DataLab