r - 在 Shinydashboard 标题的右侧添加文本

Question

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

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



我可以使用来自 this answer 的策略在标题中获取文本，但它是正确的(我可能会修复自定义 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)

有一个更好的方法吗？

Answer 1

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)