如何解决无法选择回已在 Shiny R 中选择的菜单项
我在使用闪亮的仪表板时遇到了一个奇怪的问题,我无法选择回我已经选择过一次的菜单项。
请在我的代码下方找到非常基本的代码,如果您发现任何问题,我将非常感谢您的帮助:
ui <-dashboardPage( dashboardHeader(title = "Dashborad" ),dashboardSidebar(
menuItem("A",tabName = "A",icon = icon("users")),menuItem("B",tabName = "B",icon = icon("hand-holding-usd"),menuItem("B1",tabName = "b1",icon = icon('line-chart')),menuItem('B2',tabName = "b2",menuItem('B3',tabName = "b3",icon = icon('line-chart'))
),menuItem("C",tabName = "c",icon = icon("shopping-cart")),menuItem("D",tabName = "d",icon = icon("ellipsis-h"))
),dashboardBody(
tabItems( tabItem(tabName = "A",h2("AAAAAAAAAAAa")),tabItem(tabName = "b1",h2("BBBBBBBBBBBb1111")),tabItem(tabName = "b2",h2("BBBBBBBBBBBBBb222")),tabItem(tabName = "b3",h2("BBBBBBBBBBBB3333")),tabItem(tabName = "c",h2("CCCCCCCCCCCCccc")),tabItem(tabName = "d",h2("DDDDDDDDDDDDDdd"))
)))
server <- function(input,output,server) {}
shinyApp(ui,server)
解决方法
您没有将 menuItem()
包裹在 sidebarMenu()
中。请参阅 dashboardSidebar()
的说明:
dashboardSidebar 可以包含一个 sidebarMenu。 sidebarMenu 包含 menuItems,它们又可以包含 menuSubItems。
library(shinydashboard)
ui <-dashboardPage( dashboardHeader(title = "Dashborad" ),dashboardSidebar(
sidebarMenu(
menuItem("A",tabName = "A",icon = icon("users")),menuItem("B",tabName = "B",icon = icon("hand-holding-usd"),menuSubItem("B1",tabName = "b1",icon = icon('line-chart')),menuSubItem('B2',tabName = "b2",menuSubItem('B3',tabName = "b3",icon = icon('line-chart'))
),menuItem("C",tabName = "C",icon = icon("shopping-cart")),menuItem("D",tabName = "D",icon = icon("ellipsis-h"))
)),dashboardBody(
tabItems( tabItem(tabName = "A",h2("AAAAAAAAAAAa")),tabItem(tabName = "b1",h2("BBBBBBBBBBBb1111")),tabItem(tabName = "b2",h2("BBBBBBBBBBBBBb222")),tabItem(tabName = "b3",h2("BBBBBBBBBBBB3333")),tabItem(tabName = "C",h2("CCCCCCCCCCCCccc")),tabItem(tabName = "D",h2("DDDDDDDDDDDDDdd"))
)))
server <- function(input,output,server) {}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。