I am looking for some way to display some Snap in the title bar just before the Name of my Shiny App ('My App') as below:
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)
I have tried with having HTML tag in the title argument as below, however it is not displaying anything.
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)
I would appreciate if someone guide me towards the right direction.
Thanks,
