how to align this on left hand side in header

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



  )

)

Here's a similar query I found on SO, but this one just displays text. https://stackoverflow.com/a/45179165/8382207 — Sagar, Jan 04 '18 at 15:38

score 1 · Answer 1 · answered Jan 05 '18 at 06:39

In addition to answer given by ROHIT JHA we can do it adding the following two css tags in the dashboardBody.

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;}")),

On adding this you get something that looks like this:

score 0 · Answer 2 · answered Jan 05 '18 at 06:24

0

we can do something like this

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

    dashboardPage(

      CustomHeader,
)

answered Jan 05 '18 at 06:24

ROHIT JHA

33
4

how to align this on left hand side in header

2 Answers2