RinteRface/shinydashboardPlus

Behavior of SelectLists when using boxSidebar control

RoKaStein opened this issue · 3 comments

Hi,
if I use a boxSidebar control in a box, the behavior of SelectLists (selectInput) in the box changes.
Without boxSidebar, the SelectList is also opened over the edge of the box (see upper picture), with boxSidebar a scroll bar appears in the box and you have to scroll to see the content of the SelectList (see lower picture).
Is there a solution to display the SelectList completely, even if the boxSidebar is used.

image

Now including an example

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
ui = dashboardPage(
header = dashboardHeader(),
body = dashboardBody(
box(title = "SelectLists with boxSidebar",
closable = FALSE,
width = 5,
height = 3,
solidHeader = TRUE,
collapsible = TRUE,
sidebar = boxSidebar(id = "withBoxSidebar",
width = 50,
startOpen = FALSE,
icon = icon("question"),
h5("Placeholder for Info / support / hints")),
selectInput(inputId = 'SelectList1',
label='Select List',
choices = c('Test1' = 'Test1',
'Test2' = 'Test2',
'Test3' = 'Test3',
'Test4' = 'Test4',
'Test5' = 'Test5',
'Test6' = 'Test6'),
selected = 'Test1')
),
box(title = "SelectLists without boxSidebar",
closable = FALSE,
width = 5,
height = 3,
solidHeader = TRUE,
collapsible = TRUE,
selectInput(inputId = 'SelectList2',
label='Select List',
choices = c('Test1' = 'Test1',
'Test2' = 'Test2',
'Test3' = 'Test3',
'Test4' = 'Test4',
'Test5' = 'Test5',
'Test6' = 'Test6'),
selected = 'Test1')
),
),
sidebar = dashboardSidebar()
),
server = function(input, output, session) {})

I hope someone can support me here now