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)

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

IllegalStateException

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

我对CSS等语言还很陌生，因此答案完全可能在上述链接之一中，但我无法正确修改它。

任何帮助都将受到赞赏。谢谢。

Answer 1

尝试了几样事情并且一无所获之后，我意识到修复实际上非常简单：

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

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