dashboardSidebar does not collapse when setting width with units other than px

[samjakobcavazos]

The sidebar does not fully collapse when you set the width with units other than px.

In this example, the sidebar does not fully collapse:

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(width='50%'
                   ),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

In this example, the sidebar does not collapse at all:

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(width='50vw'
                   ),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)