R Shiny - 使用titlePanel在浏览器窗口中添加Logo

Question

我想以与通常显示所有浏览器窗口相同的方式向浏览器窗口添加标志：

titlePanel允许通过使用以下方式轻松地向应用程序标题添加图像： titlePanel(title = div(img(src="myAppImage.jpg"), "My App Name") 还可以使用 windowTitle 作为参数添加应该在浏览器窗口中显示的标题。

然而，当向浏览器窗口添加图像时，它不起作用。我尝试了以下代码： titlePanel(title = div(img(src="myAppImage.jpg"), "My App Name"), windowTitle = div(img(src="myBrowserImage.png"), "My Browser Name"))。 但这会给出以下浏览器名称：<img src ...>

请问正确的写法是什么？

- Qin

Answer 1

不是在 titlePanel 内部，但您可以将以下内容添加到 UI 中：

tags$head(
        tags$link(rel = "icon", type = "image/png", sizes = "32x32", href = "/myBrowserImage.png"))

同时，您应该将图片放在www文件夹内。

- phago29

Answer 2

正如 @phago29 所指出的，编写它的一种方法是：

  useShinyjs(),
  
  ## Window title
  tags$head(
    tags$link(rel = "icon", type = "image/png", sizes = "32x32", href = "myBrowserImage.png")),
  
  # App title ----
  titlePanel( title =  div(img(src="myAppImage.png"), 'myAppTitle'), windowTitle = "myBrowserTitle" ), 
  
  # Rest of the UI
) 

将PNG图像放在名为"www"的子文件夹中。

- Qin