相关疑难解决方法(0)

如何在仪表板标题侧边栏图标的右侧添加文本？似乎以前的类似解决方案不再适用于更新dashboardHeader().

这是我在基本的shinydashboard设置中尝试做的事情:

我可以使用此答案中的策略来获取标题中的文本,但它是正确的(我可以修复自定义css)并且也感觉非常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)

有一个更好的方法吗？