RoKaStein
commented
3 years ago Now including an example
Open RoKaStein opened 3 years ago
RoKaStein
commented
3 years ago Now including an example
RoKaStein
commented
3 years ago 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) {})
RoKaStein
commented
3 years ago I hope someone can support me here now
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.