在Shiny应用页面的标题栏中显示图标

Question

我正在寻找一些方法在我的Shiny App ('My App')名称之前的标题栏中显示一些Snap，如下所示：

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)

我已尝试在title参数中使用HTML标记，如下所示，但它没有显示任何内容。

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)

如果有人引导我走向正确的方向，我将不胜感激。

谢谢，

Answer 1

这应该这样做：

Context

除非我误解了你的问题，否则输出结果。你必须在浏览器中打开它才能看到它：