我正在尝试创建一个复选框,以便能够按年份过滤数据集。然而,并非每个变量都具有每年的所有数据,因此我只想要变量具有用户界面中显示的数据的年份。遗憾的是,将我的代码拆分为条件面板后,按钮不再进行过滤。
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))