在shinydashboard嵌入图片

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")

它起作用了。