title: Display Icon in the title bar of Shiny app page
body: <p>I am looking for some way to display some Snap in the title bar just before the Name of my <code>Shiny App ('My App')</code> as below:</p>
  
  <pre><code>library(shiny)
  
  ui = shinyUI(       
          fluidPage(title = "My App", 
              selectInput(inputId = "Pick", label = "Chose", choices = c('A', 'B', 'C'), selected = NULL, multiple = FALSE, selectize = TRUE, size = NULL, width = 300))
          )
  
  server = function(input, output, session) {
      }
  
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>I have tried with having <code>HTML</code> tag in the title argument as below, however it is not displaying anything.</p>
  
  <pre><code>library(shiny)
  
  ui = shinyUI(       
          fluidPage(title = div(img(src = 'https://guidetoiceland.is/image/389003/x/0/the-beautiful-waterfalls-of-south-iceland-seljalandsfoss-skogafoss-amp-gljufrabui-1.jpg', "My App")), 
              selectInput(inputId = "Pick", label = "Chose", choices = c('A', 'B', 'C'), selected = NULL, multiple = FALSE, selectize = TRUE, size = NULL, width = 300))
          )
  
  server = function(input, output, session) {
      }
  
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>I would appreciate if someone guide me towards the right direction.</p>
  
  <p>Thanks,</p>