问题描述
这是我正在使用的代码:
library(shiny)
library(shinydashboard)
header <- dashboardHeader(),sidebar <- dashboardSidebar(sidebarMenu(menuItem("Home",tabName = "home")),sidebarMenuOutput("menu"),actionButton('add_menu','Add Menu'))
body <- dashboardBody()
ui <- dashboardPage(header = header,body = body,sidebar = sidebar)
server <- function(input,output,session) {
shinyInput <- function(name,id) paste(name,id,sep = "_")
counter <- reactiveValues(counter_value = 0L)
observeEvent(input$add_menu,{
counter$counter_value <- counter$counter_value + 1L
})
observeEvent(input$add_menu,{
output$menu <- renderMenu({
sidebarMenu(
menuItem(paste("Menu",counter$counter_value),value = shinyInput("new_menu",counter$counter_value)
))
})
})
}
shinyApp(ui = ui,server = server)
目前当你按下actionButton
时,首页标签下会出现一个新菜单,之后每点击一次,这个菜单的名字就会增加1。这是因为output$menu
是每次点击按钮 add_menu
都会被覆盖。相反,每次点击 add_menu
时,我都希望出现附加/新菜单,因此两次点击将有一个主页和两个菜单。三下点击将有一个主页和 3 个菜单等......我不确定如何实现这一点,我考虑使用 apply
系列函数之一但没有成功。此处的目标是单击侧边栏中的操作按钮,并向仪表板侧边栏中添加其他菜单。
解决方法
也许这会满足您的需求。
library(shiny)
library(shinydashboard)
header <- dashboardHeader()
sidebar <- dashboardSidebar(#sidebarMenu(menuItem("Home",tabName = "home")),sidebarMenuOutput(outputId = "dy_menu"),actionButton('add_menu','Add Menu'))
body <- dashboardBody()
ui <- dashboardPage(header = header,body = body,sidebar = sidebar)
server <- function(input,output,session) {
menu_vals = reactiveValues(menu_list = NULL)
counter <- reactiveValues(counter_value = 0L)
output$dy_menu <- renderMenu({
menu_list <- list(
menuItem("Add Menu Items",tabName = "main",selected = TRUE),menu_vals$menu_list)
sidebarMenu(.list = menu_list)
})
observeEvent(eventExpr = input$add_menu,handlerExpr = {
counter$counter_value <- counter$counter_value + 1L
menu_vals$menu_list[[length(menu_vals$menu_list) + 1]] <- menuItem(paste("Menu",counter$counter_value),tabName = paste0("Menu",counter$counter_value))
})
}
shinyApp(ui = ui,server = server)