긴 이름을 가진 빛나는 selectInput/pickerInput이 사이드바를 오버플로해야 합니다.

Question

사이드바 레이아웃에 bs4Dash 构建一个闪亮的应用程序。侧边栏包含一个下拉选择菜单，其中包含长名称的项目。打开下拉菜单后，我希望完整的项目名称可见，即溢出仪表板的主体。默认情况下，名称会在侧边栏边框处剪切 (shiny::selectizeInput)，或者下拉内容与侧边栏边框右对齐，并且项目名称的开头位于屏幕左侧 (shinyWidgets::pickerInput)를 사용하고 싶습니다. < /p>

앱은 다음과 같습니다(2022년 12월 16일 업데이트됨):

flexdashboard에서 설명한 솔루션을 적용해 보았습니다. 여기, 하지만 제대로 작동할 수 없습니다.

도와주셔서 감사합니다!

제 신청서의 재현 가능한 예는 다음과 같습니다.

으아아아

내 세션 정보():

# app.R
library(shiny)
library(bs4Dash)
library(shinyWidgets)

vec_long_items <- sapply(1:10, function(i) {
  paste("START", paste(sample(letters, 100, replace = TRUE), collapse = ""))
})

shinyApp(
  ui = dashboardPage(
    header = bs4DashNavbar(
      title = "Long items to select", disable = TRUE, controlbarIcon = NULL
    ),
    sidebar = bs4DashSidebar(
      skin = "white",
      shinyWidgets::pickerInput(
        inputId = "in1", label = "shinyWidgets::pickerInput", choices = vec_long_items
      ),
      shiny::selectInput(
        inputId = "in2", label = "shiny::selectInput", choices = vec_long_items
      )
    ),
    body = dashboardBody(tableOutput("out_text"))
  ),
  server = function(input, output, session) {
    output$out_text <- renderTable(data.frame(items = vec_long_items))
  },
  options = list(launch.browser = FALSE)
)

Answer 1

이 CSS를 사용해 보세요:

으아아아

그건

으아아아

그리고

으아아아