如何向闪亮的服务器添加许多变量？

Question

我有6列和10800行的数据集，我正在使用shiny app，但是对于用户界面来说还可以，但是对于第一个列的selectInput，我的图没有变化

我用四个变量以及饼图直方图和折线图构建了一个UI

server <- function(input, output) {
      output$plotter <- renderChart2({

    y <- input$subject2
    if(y=="all"){
    }else{
      PERFORMANCE <- PERFORMANCE %>% filter(Subject == y)
    }

    x <- input$gender2
    if(x=="all"){
    }else{
      PERFORMANCE <- PERFORMANCE %>% filter(Gender == x)
    }


    PERFORMANCE <- PERFORMANCE %>% filter(Grade %in% input$grades)

当我在第一列中选​​择ant元素时，我的图有望有所变化