css - R Shiny 的编辑标题

Question

我正在尝试编辑我 Shiny 的应用程序的标题以包含 3 个元素。

1. 标题(左边)
2. 标题旁边的侧边栏菜单(汉堡菜单)
3. 公司 Logo (右侧)

我关注了其他一些帖子并尝试复制他们的方法:

• > Adding a company Logo to ShinyDashboard header
• > Add text on right of shinydashboard header
• > How to add a company Logo to ShinyDashboard header (Not mainPanel or mainHeader)

不幸的是，我无法复制他们的解决方案。我已经设法使用以下方法将 Logo 添加到右侧:

header = dashboardHeader(title = div(dashboard_title, style="text-align: left;"))
header$children[[3]]$children <- tags$img(src=logo_path, align="right", height='50px')

但这会删除我需要保留的汉堡菜单。我可以添加 Logo 而不是标题(如以上链接之一所述)，但我需要同时拥有这两项。

我对 css 等相当陌生，所以答案完全有可能在上述链接之一中，但我无法正确修改它。

感谢任何帮助。谢谢。

Answer 1

在尝试了一些事情但一无所获之后，我意识到修复实际上非常简单:

header$children[[3]]$children[[3]] <- div(tags$img(src=logo_path, align="right", height='50px'))

header中有第三个 child 的3个 child 。问题中的这段代码用 Logo 替换了所有三个。然而，该解决方案仅将 header 的最后一位替换为 Logo ，保留了汉堡菜单。