R Shiny 编辑标题

Question

我正在尝试编辑闪亮应用程序的标题以包含 3 个项目。

1. 标题（左侧）
2. 标题旁边的侧边栏菜单（汉堡菜单）
3. 公司徽标（右侧）

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

• 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)

很遗憾，我无法复制他们的解决方案。我已设法使用以下方法将徽标添加到右侧：

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

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

我对 css 等比较陌生，因此完全有可能答案在上述链接之一中，但我无法正确修改它。

我们不胜感激。谢谢你。

Answer 1

在尝试了相当多的事情但没有成功后，我意识到修复实际上非常简单：

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

标题中有第三个孩子的 3 个孩子。问题中的一段代码是用徽标替换所有三个。但是，该解决方案仅将标题的最后一位替换为徽标，保留了汉堡菜单。