如何在标题的左侧对齐它

Question

i want to algin it left side in header,i had shared a screen shot here

//ui.r

    library(RJDBC)
    library(dplyr)
    library(shiny)
    library(ggplot2)
    library(scales)
    library(shinydashboard)
    library(gridExtra)
    library(DT)
    library(reshape2)
    library(ggthemes)
    library(plotly)

dashboardPage(

  dashboardHeader( 

    tags$li(class = "dropdown",
       navbarPage("header",tabPanel("Plots",style = "align:right;"), tabPanel("Plot1"), tabPanel("Plot2"), tabPanel("Plot3"), tabPanel("Plot4")))

  ),


  dashboardSidebar(


    sidebarMenuOutput(outputId = "sidebar"),
    uiOutput("sidebarmenu")
  ), 
  dashboardBody(


    uiOutput("body"),
    uiOutput("tabbox"),

    uiOutput("dashboardbody")



  )

)

Answer 1

我们可以做这样的事情

CustomHeader <- dashboardHeader(title="Store Analytics")
    CustomHeader$children[[3]]$children <- list(
      div(style="float:left;height:55px",uiOutput("try")))

    dashboardPage(

      CustomHeader,
)

Answer 2

除了ROHIT JHA给出的答案之外，我们可以在dashboardBody中添加以下两个css标签。

tags$head(tags$style(".main-header .navbar{ margin-left: 0px !important;}")),
tags$head(tags$style(".navbar-custom-menu, .main-header .navbar-right {float: left !important;}")),

添加此内容后，您会看到如下内容：