愿所有的美好和期待都能如约而至

如何在闪亮的仪表板侧栏中手动展开子菜单

发布时间:  来源:互联网  作者:匿名  标签:error how to manually expand a submenu in a shiny dashboard side bar exception I  热度:37.5℃

本文介绍了如何在闪亮的仪表板侧栏中手动展开子菜单的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我正在尝试手动展开闪亮仪表板侧边栏中的子菜单。updateTabItems函数仅适用于普通菜单,但不适用于嵌套菜单。

以下是显示问题的基本示例(从updateTabItems文档中修改)。如果我点击”切换选项卡”,它会切换菜单,但不会展开第一个有子菜单的菜单。它似乎只选择了子菜单,而没有展开树。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"),
        menuSubItem("Sub Menu 1",icon = icon("folder-open"), tabName = "subMenu1")
      ),
      menuItem("Widgets", tabName = "widgets", icon = icon("th"))
    ),
    actionButton('switchtab', 'Switch tab')
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
        h2("Dashboard tab content")
      ),
      tabItem(tabName = "widgets",
        h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$switchtab, {
    newtab <- switch(input$tabs,
      "subMenu1" = "widgets",
      "widgets" = "subMenu1"
    )
    updateTabItems(session, "tabs", newtab)
  })
}

shinyApp(ui, server)
}

我要手动展开树,选择菜单和子菜单。欢迎提出任何建议。谢谢。

更新:

包含完整解决方案的工作代码位于Shiny expanding submenu items manually

推荐答案

我使用shiny:

中的JAVASCRIPT接口extendShinyjs帮助自己定义了一些JAVASCRIPT

js$selectMenuItem(0)
js$selectMenuSubItem(2)

useShinyjs(), 
extendShinyjs(text = jsSelectMenuItem), 
extendShinyjs(text = jsSelectMenuSubItem)

选择菜单项I

jsSelectMenuItem <- "shinyjs.selectMenuItem = function(i){
    setTimeout(function(){
        $('.treeview > a').eq(i).click();
    }, 200);
}"

选择MenuSubItem I

jsSelectMenuSubItem <- "shinyjs.selectMenuSubItem = function(i){
    setTimeout(function(){
        $('.treeview-menu > li > a').eq(i).click();
    }, 800);
}"

这篇关于如何在闪亮的仪表板侧栏中手动展开子菜单的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,

勇敢去编程!

勇敢的热爱编程,未来的你一定会大放异彩,未来的生活一定会因编程更好!

TOP