在闪亮的仪表板标题右侧添加文本

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

这就是我试图在基本的闪亮仪表板设置中执行的操作：

我可以使用以下策略这个答案 https://stackoverflow.com/a/36062742/2375551在标题中获取文本，但它是右对齐的（我可能可以修复自定义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)

有一个更好的方法吗？

The dashboardHeader正在等待类型的元素dropdownMenu。因此很难找到一个不hacky的解决方案。可能的（hacky）选项是： a) 修改dashboardHeader函数，或 b) 在创建标题后使用一些 JavaScript 代码添加文本。以下是我尝试使用 JavaScript 解决您的问题，也许它可以帮助您。

library(shiny)
library(shinydashboard) 
ui <- dashboardPage(
  dashboardHeader(
    title = "demo"
  ), 
  dashboardSidebar(), 
  dashboardBody(
    tags$head(tags$style(HTML(
      '.myClass { 
        font-size: 20px;
        line-height: 50px;
        text-align: left;
        font-family: "Helvetica Neue",Helvetica,Arial,sans-serif;
        padding: 0 15px;
        overflow: hidden;
        color: white;
      }
    '))),
     tags$script(HTML('
      $(document).ready(function() {
        $("header").find("nav").append(\'<span class="myClass"> Text Here </span>\');
      })
     '))
  )
) 
server <- function(input, output) { } 
shinyApp(ui, server)