Css 当鼠标移到侧边栏之外时，如何防止shiny 仪表板侧边栏菜单中的 pickerInput 选项被切断

默认情况下，打开的下拉菜单为display: block;.您可以通过添加以下内容将其更改为display: contents;

.open > .dropdown-menu {
    display: contents;
}

然后，当您将鼠标悬停离开时，所有选项都保持可见.

library(shiny)
library(shinydashboard)
library(shinyWidgets)

# Helper function 
convertMenuItem <- function(mi,tabName) {
    mi$children[[1]]$attribs['data-toggle']="tab"
    mi$children[[1]]$attribs['data-value'] = tabName
    if(length(mi$attribs$class)>0 && mi$attribs$class=="treeview"){
        mi$attribs$class=NULL
    }
    mi
}


# Define UI
ui <- dashboardPage(
    dashboardHeader(title = "Demo"),
    dashboardSidebar(
        sidebarMenu(
            convertMenuItem(
                menuItem(text = "Option1", 
                         tabName = "opt1",
                         shinyWidgets::pickerInput(inputId = "picker",
                                                   label = "Select:",
                                                   choices = c("Pick 1", "Pick 2", "Pick 3", "Pick 4", "Pick 5", "Pick 6"),
                                                   selected = c(""),
                                                   multiple = TRUE,
                                                   options = list(`actions-box` = TRUE, 
                                                                  `dropdownAlignRight` = TRUE,
                                                                  `dropupAuto` = TRUE))),
                tabName = "opt1-outer"),
            menuItem("Option2", tabName = "opt2"),
            menuItem("Option3", tabName = "opt3")
        )
    ),
    dashboardBody(
        tags$head(tags$style(HTML("
                                  .open > .dropdown-menu {
                                      display: contents;
                                  }
                                 ")))
    )
)
# Define server logic
server <- function(input, output) {
    
}

# Run the application
shinyApp(ui = ui, server = server)