ShinyDashboard仪表板页眉与浏览器中的徽标不一致

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "My Dashboard",
    tags$li(a(href = 'https://www.example.com',
              img(src = 'logo.png',
                  title = "Website Logo",
                  height = "30px"),
              style = "padding-top:10px; padding-bottom:10px;"),
            class = "dropdown")
  ),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Visit-us", icon = icon("send", lib='glyphicon'), href = "https://www.example.com")
    )
  ),
  dashboardBody(
    fluidRow(
      box(plotOutput("plot1", height = 250)),
      
      box(
        title = "Controls",
        sliderInput("slider", "Number of observations:", min = 1, max = 100, value = 50)
      )
    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)
  
  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}

shinyApp(ui, server)