# NOT RUN {
dropdownMenuOutput("dropdown")
output$dropdown <- renderDropdownMenu({
dropdownMenu(messageItem("Micha<U+0142>", "Test message", color = "teal"),
messageItem("Marek", "Another test!", icon = "warning", color = "red"))
})
# }
Run the code above in your browser using DataLab