选择多个输入时，有光泽的R不同输出

Question

在我的 ui.R 中，我有3个输入的侧栏：

selectInput("category"...)
selectInput("program"...)
sliderInput("year"...)

我的数据框 df 包含将类别与年度和计划与年度 ie： prog1year，prog2year，category1year ...

当我选择selectInput selectInput（＆＃34;类别＆＃34;）和 sliderInput（＆＃34;年＆＃34;）我的主数据框 df 按类别和年度进行过滤， df1 的制作如下：

df1 <- new_df %>% select_(.dots = c("City", paste0(input$category, input$year)))

结果是： category1year，category2year ...

选择 selectInput（＆＃34;程序＆＃34;）和 sliderInput（＆＃34;年＆＃34;）后，我需要将注意力转回到主< strong> df 并按程序和年过滤结果： program1year，program2year ...

当选择所有3个控件时，我需要通过名为 progyear 和 categoryyear

的列过滤df

目前我可以按类别和年进行过滤，但无法使其适用于程序输入。

这么说我不能再打电话给主df：

  names(new_df)<- sub("category", "", names(df))
  new_df <- new_df %>% select_(.dots = c("City",paste0(input$category, input$year)))
  colnames(new_df) <- c("City", "Category")

现在，当我想使用 selectInput（＆＃34; program＆＃34;）时，它会搜索 new_df ，其中 prog1，prog2 .. < / strong>不存在。

关于猪排提供的解决方案：

  new_df <- reactive({})
  new_df <- new_df %>% select_(.dots = c("City",   paste0(input$category, input$year)))
  colnames(new_df) <- c("City", "Category")
  new_df <- new_df %>% select_(.dots = c("City", paste0(input$program, input$year)))
  colnames(new_df) <- c("City", "Program")

我收到错误：

没有适用于＆＃39;选择_＆＃39;的方法适用于班级＆＃34;被动＆＃34;

的对象

我被困在这里。

你能否提供一些最小的例子：

if (selectinput1 == choosen)...

谢谢