Como adiciono texto à direita do ícone da barra lateral do cabeçalho do painel? Parece que soluções semelhantes anteriores não funcionam mais com atualizações paradashboardHeader().

Isto é o que estou tentando fazer em uma configuração básica do painel brilhante:

Eu posso usar a estratégia deesta resposta para obter texto no cabeçalho, mas é justificado à direita (que eu provavelmente posso corrigir css personalizado) e também parece bastante hacky.

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)

Existe uma maneira melhor de fazer isso?