如何在仪表板标题侧边栏图标的右侧添加文本?似乎以前的类似解决方案在 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)
有一个更好的方法吗?
最佳答案
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)
关于r - 在 Shinydashboard 标题的右侧添加文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45176030/