如何在闪亮的仪表板中添加项目名称之外的徽标？答案

【问题标题】：How can I add logo besides project name in shiny dashboard?如何在闪亮的仪表板中添加项目名称之外的徽标？
【发布时间】：2017-10-06 14:11:52
【问题描述】：

请您帮我在闪亮的仪表板左上方添加公司徽标，除了项目名称。

我已尝试在 stackoverflow 上使用其他答案中的代码，但仍然无法解决我的问题。我对 HTML 和 css 完全一无所知。

这是我的代码：

library(shiny)
library(shinydashboard)
shinyApp(
ui = dashboardPage(skin = "green", 
dashboardHeader(title = "Project name", 
 # this could show the logo but not where I wanted !
 tags$li(a(href = 'http://www.company.com',
              img(src = 'logo.jpg',
              title = "Company Home", height = 30px"),
           style = "padding-top:10px; padding-bottom:10px;"),
                    class = "dropdown"))),
dashboardSidebar(),
dashboardBody()
),
server = function(input, output) {}
)

显示我想如何添加徽标的图片

谢谢

【问题讨论】：

Adding a company Logo to ShinyDashboard header的可能重复
不，不一样，我已经尝试过该代码，但它并没有解决我的问题。请尝试查看我的问题随附的图片。
那么请分享你的尝试，...对我来说看起来一样
“我已尝试在 stackoverflow 上使用其他答案中的代码”：然后请分享您尝试过的内容以及失败的地方。
非常抱歉！我编辑了我的问题。

标签： html css r shiny shinydashboard

【解决方案1】：

可以将图片和文字并排设置，如下所示。

library(shiny)
library(shinydashboard)

header <- dashboardHeader()
anchor <- tags$a(href='http://www.example.com',
                 tags$img(src='logo.png', height='60', width='50'),
                 'project name')

header$children[[2]]$children <- tags$div(
    tags$head(tags$style(HTML(".name { background-color: black }"))),
    anchor,
    class = 'name')

ui <- dashboardPage(header, dashboardSidebar(), dashboardBody())

shinyApp(ui, server = function(input, output, session) {})

【讨论】：