使用shiny创建动态CheckboxGroupInput

我正在尝试做一个复选框，以便能够按年份筛选数据集。然而，并不是每个变量都有每年的所有数据，所以我只想要变量有数据显示在ui中的年份。遗憾的是，在将代码拆分为条件面板后，按钮不再过滤

conditionalPanel(condition = "input.Select2 == 'AFD' | input.Select2 == 'Piraten'",
                           checkboxGroupInput("Year", label = h3("Checkbox group"), 
                                              choices =  "2013"),
                                              selected = "2013"),
         conditionalPanel(condition = "input.Select2 == 'DieLinke'",
                         checkboxGroupInput("Year", label = h3("Checkbox group"), 
                                            choices = list("2009", "2013"),
                                            selected = "2013")),
        conditionalPanel(condition = "input.Select2 == 'Gruene' | input.Select2 == 'FDP' | input.Select2 == 'SPD' | input.Select2 == 'CDU'",
                         checkboxGroupInput("Year", label = h3("Checkbox group"), 
                                            choices = list("1998", "2002", "2005","2009", "2013"),
       selected = "2013"))

有人知道为什么吗

以下是服务器函数中生成的绘图示例：

dfParteien %>%
                                                filter(Partei %in% chosen_party) %>% 
                                                filter(Jahr %in% input$Year) %>%
                                                count(word) %>%
                                                with(wordcloud(word, n, max.words = input$Slider1, colors=pal12))

---

下面是一个使用

mtcars

dataset的工作示例，它将帮助您实现动态

checkboxGroupInput

和数据帧的进一步过滤：

library(shiny)
library(DT)
data <- mtcars

shinyApp(
  ui = fluidPage(
    selectInput("select1", "select cyl:", choices = unique(data$cyl)),
    uiOutput("checkbox"),
dataTableOutput("table")
  ),
  server = function(input, output) {

    output$checkbox <- renderUI({
      choice <-  unique(data[data$cyl %in% input$select1, "gear"])
      checkboxGroupInput("checkbox","Select gear", choices = choice, selected = choice[1])

    })

    output$table <- renderDataTable({
      data <-  data %>% filter(cyl %in% input$select1) %>% filter(gear %in% input$checkbox)
      datatable(data)
    })

   }
)

库（闪亮）
图书馆（DT）
数据这里是一个使用
mtcars
dataset的工作示例，它将帮助您实现动态
checkboxGroupInput
和数据帧的进一步过滤：

library(shiny)
library(DT)
data <- mtcars

shinyApp(
  ui = fluidPage(
    selectInput("select1", "select cyl:", choices = unique(data$cyl)),
    uiOutput("checkbox"),
dataTableOutput("table")
  ),
  server = function(input, output) {

    output$checkbox <- renderUI({
      choice <-  unique(data[data$cyl %in% input$select1, "gear"])
      checkboxGroupInput("checkbox","Select gear", choices = choice, selected = choice[1])

    })

    output$table <- renderDataTable({
      data <-  data %>% filter(cyl %in% input$select1) %>% filter(gear %in% input$checkbox)
      datatable(data)
    })

   }
)

库（闪亮）
图书馆（DT）
数据