闪亮的仪表板侧边栏中的可折叠菜单项答案

【问题标题】：Collapsible menu item in shiny dashboard sidebar闪亮的仪表板侧边栏中的可折叠菜单项
【发布时间】：2018-09-25 22:16:20
【问题描述】：

我在边栏中有两个菜单项。目前，如果我单击任何菜单项，则会显示所有菜单项的选项卡项。我想让它可折叠，如果我点击多个名称菜单，单个分析应该折叠，如果我点击单个分析，多个应该折叠。
目前的设计是

相同的可重现代码是

library(shinydashboard)
ui <- dashboardPage(
   dashboardHeader(title = "Dashboard", titleWidth = 290),  
  dashboardSidebar(
   width = 290,
  sidebarMenu(
   menuItem(
    "Multiple Incident Analysis",
    tabName = "dashboard",
    icon = icon("th")),      
  splitLayout(cellWidths = c("44%", "31%", "25%"),
              dateInput("datefrom", "Date From:", format = "mm/dd/yyyy", Sys.Date()-5),
              textInput("datefrom_hour", "Hour",
                        value = "12:00"),
              textInput("datefrom_noon","AM/PM", value = "AM")),      
  splitLayout(cellWidths = c("44%", "31%", "25%"),
              dateInput("dateto", "Date To:", format = "mm/dd/yyyy"),
              textInput("dateto_hour", "Hour",
                        value = "11:59"),
              textInput("dateto_noon","AM/PM", value = "PM")),
  menuItem("Single Analysis", 
           tabName = "widgets", 
           icon = icon("th")),
  numericInput("tckt", "Ticket Number : ", 12345,  width = 290),
  submitButton("Submit", width = "290")
)),  
dashboardBody(    
      ))
shinyApp(ui, server)

我无法在此使用条件面板。

【问题讨论】：

标签： r shiny dashboard shinydashboard shinyjs

【解决方案1】：

这是一种使用 JavaScript 的方法。注意事项：

我们将菜单中的项目包装在div 容器中，ID 为#mult 和#single。

我们添加了选择所有菜单按钮（li 元素）的 JavaScript 代码并添加了一个点击事件。单击其中一个菜单项时，两个div 容器的状态为toggled。

library(shiny)
library(shinydashboard)


server <- function(input, output) { }
jsc <- '
$(document).ready(function () {
  $(".sidebar-menu").children("li").on("click", function() {
    $("#mult, #single").toggle();
  });
});
'

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard", titleWidth = 290),  
  dashboardSidebar(
    width = 290,
    sidebarMenu(
      menuItem(
        "Multiple Incident Analysis",
        tabName = "dashboard",
        icon = icon("th")),      
      div(id = "mult", splitLayout(cellWidths = c("44%", "31%", "25%"),
                  dateInput("datefrom", "Date From:", format = "mm/dd/yyyy", Sys.Date()-5),
                  textInput("datefrom_hour", "Hour",
                            value = "12:00"),
                  textInput("datefrom_noon","AM/PM", value = "AM")),      
      splitLayout(cellWidths = c("44%", "31%", "25%"),
                  dateInput("dateto", "Date To:", format = "mm/dd/yyyy"),
                  textInput("dateto_hour", "Hour",
                            value = "11:59"),
                  textInput("dateto_noon","AM/PM", value = "PM"))),
      menuItem("Single Analysis", 
               tabName = "widgets", 
               icon = icon("th")),
      div(id = "single", style="display: none;", numericInput("tckt", "Ticket Number : ", 12345,  width = 290)),
      submitButton("Submit", width = "290")
    )),  
  dashboardBody(
    tags$head(tags$script(jsc))
  ))





shinyApp(ui, server)

【讨论】：

非常感谢@Martin Schmelzer，它正在按预期工作。
你能用 3 divs 做到这一点吗？