在shiny (shinydashboard)中,可以使用renderMenu
函数动态添加带有操作按钮的sidebarMenu
。下面是一个完整的示例代码:
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenuOutput("menu")
),
dashboardBody()
)
server <- function(input, output, session) {
output$menu <- renderMenu({
sidebarMenu(
menuItem("Home", tabName = "home"),
menuItem("Page 1", tabName = "page1"),
menuItem("Page 2", tabName = "page2"),
menuItem("Add Menu", icon = icon("plus"),
menuSubItem("Submenu 1", tabName = "submenu1"),
menuSubItem("Submenu 2", tabName = "submenu2")
)
)
})
}
shinyApp(ui, server)
在上述代码中,renderMenu
函数用于动态生成sidebarMenu
。在menuItem
中,可以指定菜单的名称和对应的tabName
。如果需要添加带有操作按钮的子菜单,可以使用menuSubItem
函数,并在menuItem
中设置icon
参数为icon("plus")
。
这样,当应用程序运行时,renderMenu
会根据renderMenu
函数中的逻辑动态生成菜单,并将其输出到sidebarMenuOutput("menu")
中。
关于shiny和shinydashboard的更多信息,可以参考腾讯云的相关产品和文档:
请注意,以上答案仅供参考,具体的实现方式可能会因个人需求和环境而有所不同。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云