Отрегулируйте ширину панели заголовка в приборной панелиHeader в блестящей приборной панели

Question

Ниже я настроил height всей строки заголовка, но я хотел бы знать, как также настроить width, чтобы соответствовать боковой панели width, которую я увеличил. Кнопка переключения должна находиться там, где заканчивается боковая панель.

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "saddasda",
    # Set height of dashboardHeader
    tags$li(class = "dropdown",
            tags$style(".main-header {max-height: 50px}"),
            tags$style(".main-header .logo {height: 50px;}"),
            tags$style(".sidebar-toggle {height: 50px; padding-top: 1px !important;}"),
            tags$style(".navbar {min-height:50px !important}"),

    ) 
  ),
  dashboardSidebar(width = 400,
    # Adjust the sidebar
    tags$style(".left-side, .main-sidebar {padding-top: 20px}")
  ),
  dashboardBody()
)

server <- function(input, output){}

shinyApp(ui, server)