如何在Shiny应用的窗口标题中添加公司Logo？

你之前尝试用title=div(img(src="logo.ico","Company name"))的方法没达到预期，是因为这个方式是用来设置页面内部的标题，而标签页左侧的图标（也就是favicon）需要通过专门的HTML标签来配置，不是靠title参数实现的。下面给你可行的解决方案：

基础Shiny应用的实现步骤 #

1. 准备静态资源 #

首先把你的logo.ico文件放在Shiny应用目录下的www文件夹里（如果没有这个文件夹，直接新建一个即可，Shiny会自动从这里读取静态资源）。

2. 在UI中添加Favicon配置 #

通过tags$head插入HTML的<link>标签，指定标签页图标的路径和类型：

library(shiny)

ui <- fluidPage(
  tags$head(
    # 配置标签页的favicon图标
    tags$link(rel = "icon", type = "image/x-icon", href = "logo.ico"),
    # 设置标签页显示的标题文本
    tags$title("Company name")
  ),
  
  # 页面内部的标题（可选，这里可以同时显示图标和文字）
  titlePanel(
    div(
      img(src = "logo.ico", height = "30px", style = "margin-right: 8px;"),
      "Company name"
    )
  ),
  
  # 你的应用内容
  mainPanel(
    p("欢迎使用我的Shiny应用！")
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

关键说明 #

• tags$link(rel = "icon")是HTML标准的favicon配置方式，浏览器会自动识别这个标签并在标签页左侧显示图标。
• 如果你的logo不是.ico格式（比如.png），可以调整type参数为"image/png"，同时建议指定sizes属性，比如：tags$link(rel = "icon", type = "image/png", href = "logo.png", sizes = "16x16")
• tags$title用来设置标签页的文本内容，和图标配合显示，就像Gmail标签页那样。

为什么你之前的方法无效？ #

你之前用的title=div(...)如果是给fluidPage的title参数赋值，这个参数只接受纯文本，会把div的HTML代码当成普通文本显示，无法解析成图标；如果是给titlePanel的title参数，那只会影响页面内部的标题，和标签页的图标无关。

内容的提问来源于stack exchange，提问作者Sudhakar