Changing top message for dropdownMenus

[federicomarini]

I have one request, about the function
shinydashboard::dropdownMenu

function (..., type = c("messages", "notifications", "tasks"),
 badgeStatus = "primary", icon = NULL, .list = NULL)
{
 type <- match.arg(type)
 if (!is.null(badgeStatus))
 validateStatus(badgeStatus)
 items <- c(list(...), .list)
 lapply(items, tagAssert, type = "li")
 dropdownClass <- paste0("dropdown ", type, "-menu")
 if (is.null(icon)) {
 icon <- switch(type, messages = shiny::icon("envelope"),
 notifications = shiny::icon("warning"), tasks = shiny::icon("tasks"))
 }
 numItems <- length(items)
 if (is.null(badgeStatus)) {
 badge <- NULL
 }
 else {
 badge <- span(class = paste0("label label-", badgeStatus),
 numItems)
 }
 tags$li(class = dropdownClass, a(href = "#", class = "dropdown-toggle",
 `data-toggle` = "dropdown", icon, badge), tags$ul(class = "dropdown-menu",
 tags$li(class = "header", paste("You have", numItems,
 type)), tags$li(tags$ul(class = "menu", items))))
}
<environment: namespace:shinydashboard>

Would it be possible to change the behavior of the part in bold and allow the user to provide a custom message for that in a separate parameter?
I can always override the function to do that, but I feel more comfortable if you can deal with it.

Something like...

function (.., type = c("messages", "notifications", "tasks"),
 badgeStatus = "primary", icon = NULL, .list = NULL, top_msg = NULL)
{
 ...
 tags$li(class = dropdownClass, a(href = "#", class = "dropdown-toggle",`data-toggle` = "dropdown", icon, badge), tags$ul(class = "dropdown-menu", style = dropdown_style, tags$li(class = "header", top_msg), tags$li(tags$ul(class = "menu", style = "list-style-type: none;max-height: 800px;", items))))
}

Thank you in advance for the time considering this idea!
Federico

[schmate]

This feature would be very welcome by me also - it's needed for creative utilization of the dropdown menu element as much as for building non-English dashboards.