dashboardSidebar width argument unresponsive

[echoplaza]

The width of the sidebar doesn't respond to changes in the width argument.

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    title = "Basic Dashboard",
    header = dashboardHeader(),
    sidebar = dashboardSidebar(width = 800, sidebarMenu( 
      id = "tabs",
      sidebarHeader("Header 1"),
      menuItem(text = "Previous Mid", startExpanded = FALSE,
               radioButtons(inputId = "open_to_previous_mid", label =  "Here is a very very long label: Open relative to previous day's closing mid", 
                            choices = c("Any", "Above", "Below")
               )
      )
    )),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody()
  ),
  server = function(input, output) {

  }
)

[ugurdar]

You can use " , like this width = "800"

or
you can use fresh package, add this into dashboardBody() function

use_theme(create_theme(
            bs4dash_layout(
                 sidebar_width = "800px",
            )
        ))

[calderonsamuel]

I was searching for the same thing applied to the control bar. So, I'm just to documenting that @ugurdar response works for the controlbar too. e.g.

fresh::create_theme(
    fresh::bs4dash_layout(
        control_sidebar_width = "350px" 
    )
)