обавить текст справа от значка боковой панели заголовка панели? Похоже, что предыдущие аналогичные решения больше не работают при обновленияхdashboardHeader().

Вот что я пытаюсь сделать в базовой настройке Shinydashboard:

Я могу использовать стратегию изэтот ответ чтобы получить текст в заголовке, но он выровнен по правому краю (что я, вероятно, могу исправить пользовательским CSS), а также чувствует себя довольно хакерским.

library(shiny)
library(shinydashboard) 
ui <- dashboardPage(dashboardHeader(title = "demo",
  tags$li(class = "dropdown",
    tags$p("foo")
  )
), dashboardSidebar(), dashboardBody()) 
server <- function(input, output) { } 
shinyApp(ui, server)

Есть лучший способ сделать это?