如何将图像插入到闪亮的 navbarPage() 上的导航栏中

我正在使用一个闪亮的应用程序navbarPage()布局。我想在屏幕右侧的导航栏中插入图像。例如，它看起来像 stackoverflow 网站顶部的导航栏，但在最右侧有一个徽标。我努力了：

shinyUI(
   navbarPage (title="test Page" ,
      img(src="mylogo.gif", style="float:right; padding-right:25px"),
      tabPanel(title="Panel 1",...)
 ))

然而，这一切只是在导航栏下方的最右侧显示图像，而不是第一个选项卡的内容（注意 - 图像位于www根据需要目录）。

我可以使用icon=参数，但这会将图标放在浏览器的选项卡上。

关于如何将图像放在导航栏本身上有什么想法吗？

我现在可以回答这个问题了，至少对于闪亮的 0.10.0 来说是这样。总体思路是设置title= to a div()其中包含标题的图像和文本。

然而，这产生了一个新问题，即icon=参数不再有效，并且您无法设置窗口的标题。为了解决这个问题，我遵循了安迪·辛格尔顿的建议here.建议是创建一个fluidPage()上面的navbarPage()可用于保存窗口标题和图标。通过将此页面的高度设置为 0 像素，它会隐藏在应用程序中。这是代码的关键部分。

ui.r:

shnyUI(
  fluidPage(
     list(tags$head(HTML('<link rel="icon", href="MyIcon.png", 
                                   type="image/png" />'))),
     div(style="padding: 1px 0px; width: '100%'",
         titlePanel(
                title="", windowTitle="My Window Title"
         )
      ),
      navbarPage(
         title=div(img(src="myLogo.gif"), "My Title in the Navbar"),
         tabPanel(....