Sidebar on Phones

[maxmoro]

I noticed that if I use the with parameter in the dashboardSidebar command the left bar will not completely hide on phone screens.
example:

,dashboardSidebar(
                           sidebarMenu(id='tabs',menuItem("Filters",icon=icon("filter"), tabName='tab_parameters')
                                       ,menuItem("second",icon=icon("filter"), tabName='tab2',selected = T)) 
                           ,width='150px'
                       )

I fixed the issues Adding the following line on the style sheet :

.left-side, .main-sidebar {
       width: 100px;
}

Is this a bug or am I using the command in the wrong way?

Here a working example you can run from a phone or use the Chrome F12 feature (select any smartphone simulator)

library(shiny)
library(shinydashboard)
big_list=as.character(seq(1,3000))
shinyApp(
    ui = dashboardPage(title='Time Application'
                       #header
                       ,dashboardHeader(title=strong(h4("Time Application")),titleWidth='150px')
                       #left side tabs
                       ,dashboardSidebar(
                           sidebarMenu(id='tabs',menuItem("Filters",icon=icon("filter"), tabName='tab_parameters')
                                       ,menuItem("second",icon=icon("filter"), tabName='tab2',selected = T)) 
                           ,width='150px'
                       )
                       #body of the application, based on the tab
                       ,dashboardBody(
                           tabItems(
                               tabItem(tabName = 'tab_parameters'
                                       ,fluidRow(
                                           box(width=6,title='Filters'
                                               #remove dateRange input and  it works
                                               ,dateRangeInput("period"
                                                               , label ="Period"
                                                               , min  = '2013-01-01'
                                                               , max  = '2016-01-01'
                                                               , start = '2013-01-01'
                                                               , end = '2016-01-01'
                                               )
                                           )
                                       )
                                       ,fluidRow(width=12,box(status='success',title='Group By' 
                                                              ,selectizeInput( "OT_summary_criteria"
                                                                               , label =NULL
                                                                               , multiple=TRUE
                                                                               #, choices = c('a','b')
                                                                               ,choices=NULL
                                                                               #, selected ='a'
                                                                               #remove next line and it works
                                                                               , options=list(plugins = list('remove_button','drag_drop'))
                                                              )
                                       ))
                                       ,"You should see something here below if it works:"

                               )
                               ,tabItem(tabName = 'tab2'
                                       ,textOutput('infot')
                                       ,actionButton('test','test')
                               )
                           )
                       )
    )
    ,
    server =
        function(input, output, session) {
            output$infot = renderText( paste0('IT IS WORKING',input$OT_summary_criteria))
            observeEvent(input$test,updateSelectizeInput(session,'OT_summary_criteria',selected = '3000',choices=big_list,server=T))
        }
)