闪亮的多选图表更新

Question

我的闪亮应用程序出现问题，在使用多项选择时无法更新条形图。它仅在开始时生成指定数据的图表。添加更新按钮不起作用

    ui <- fluidPage(
      sidebarLayout(

      checkboxGroupInput(inputId = "sele", label = "Wyznania (do wykresu slupkowego):", choiceValues = dane_3, choiceNames = nazwy_3,
                         selected = dane_3),
      actionButton("update", "Update View")

    ),

    mainPanel(

      tabsetPanel(type = "tabs",
                 [..]
                  tabPanel("Wykres slupkowy", plotOutput("barPlot"))
  )
)

server <- function(input, output) {


  sele2 <- reactive({
  return(as.vector(as.numeric(input$sele)))
  })

  output$barPlot <- renderPlot({
    dane_new = as.matrix(as.numeric(dane_3[as.numeric(sele2())]))
    nazwy_new = nazwy_3[as.numeric(sele2())]
    rownames(dane_new) = nazwy_new

    barchart(dane_new,xlab="Sredni wynik egzaminu SAT")

  })
[..]      
}

shinyApp(ui=ui,server = server)