Shinydashboard，將徽標向右對齊

Question

是否可以將標題中的徽標完全移動到右側？ 我附上了一張我希望它看起來如何的照片。 這是一個 MWE

標志在右邊

library(shiny)
library(shinydashboard)

ui <- function(){

dashboardPage(
    dashboardHeader(title = tags$a(href = 'https://google.com',
                                           tags$img(src = 'https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png', height= 50,width= 50, align = "right"),
                                           'Title')),
  dashboardSidebar( sidebarMenu(id="side", menuItem("Option1", tabName="op1"),

                                menuItem("Option2", tabName="op2"))
),


  body=dashboardBody())}


server <- function(input, output, session) {}

shinyApp(ui, server)

Answer 1

您可以將其包裝在類dropdown的li包裝器中。 嘗試這個

library(shiny)
library(shinydashboard)

ui <- function(){
  
  dashboardPage(
    dashboardHeader(
      title = "Demo",
      tags$li(class = "dropdown",
              tags$a(href = 'https://google.com',
                     tags$img(src = 'https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png', height= 50,width= 50, align = "right")
              )
      ),
      dropdownMenuOutput('messageMenu')
    ),
    dashboardSidebar( sidebarMenu(id="side", menuItem("Option1", tabName="op1"),
                                  
                                  menuItem("Option2", tabName="op2"))
    ),
    
    
    body=dashboardBody())}


server <- function(input, output, session) {}

shinyApp(ui, server)