Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Behavior of SelectLists when using boxSidebar control #133

Open
RoKaStein opened this issue Apr 27, 2021 · 3 comments
Open

Behavior of SelectLists when using boxSidebar control #133

RoKaStein opened this issue Apr 27, 2021 · 3 comments

Comments

@RoKaStein
Copy link

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

@RoKaStein
Copy link
Author

Now including an example

@RoKaStein
Copy link
Author

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
Copy link
Author

I hope someone can support me here now

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant