我正在尝试在 shiny dashboard 的侧边栏中手动展开子菜单。 updateTabItems
函数仅适用于普通菜单,不适用于嵌套菜单。
这里是基本示例(根据 updateTabItems
文档修改)来说明问题。如果我单击“切换选项卡”,它会切换菜单,但不会展开具有子菜单的第一个菜单。似乎它只选择了子菜单但没有伸展树(Splay Tree)。
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)
}
我想手动伸展树(Splay Tree),选择菜单和子菜单。欢迎提出任何建议。谢谢。
更新:
包含完整解决方案的工作代码在 Shiny expanding submenu items manually 中
最佳答案
我帮助自己定义了一些 JavaScript,使用 Shiny 的 JavaScript 接口(interface) extendShinyjs
:
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);
}"
关于javascript - 如何在 Shiny 的仪表板侧栏中手动展开子菜单,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32465177/