在闪亮的仪表板中嵌入图片

Question

问题：我想在页眉的右上角添加第二张图片。目前，我可以在左上角放置一个，但不能在右上角。

有什么建议吗？

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
                  header = dashboardHeader( titleWidth = NULL,
                                            title = tags$b("Testapp",
                                                           tags$a(href = 'https://www.google.com/', 
                                                                  tags$img(src = 'mick.png', height = 50, width = 50, align = "left"))
                                            ),

                                              ## QUESTION: how can I add the picture to the top right corner
                                             tags$head(tags$img(src = 'mick.png', height = 50, width = 50, align = "right"))



  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

Answer 1

Shinydashboard 需要一个 li 元素，其类为 dropdown。如果我们给它（将tags$head(...)替换为以下内容）：

tags$li(tags$img(src = 'mick.png', height = 50, width = 50, align = "right"), class = "dropdown")

它有效。