I can now answer this question, at least for shiny 0.10.0. The general idea is to set the title=
to a div()
that contains both the image and the text for the the title.
This however, creates a new problem in that the icon=
argument no longer works, and you cannot set a title for the window. To get around this I followed Andy Singleton’s advice here.The advice is to create a fluidPage()
above the navbarPage()
that can be used to hold the window title and icon. By making this page 0 pixels in height, it is hidden on the app. Here is the key bits of code.
ui.r:
shnyUI(
fluidPage(
list(tags$head(HTML('<link rel="icon", href="https://stackoverflow.com/questions/24705431/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(....