闪亮的应用程序 - dplyr

Question

我有一个数据框（df），有四列（alpha，beta，gamma和delta）。每列中的数据是整数。我正在编写一个闪亮的应用程序，当用户选择其中一个选项（选项1-4）时，它与适当的列名匹配，并且使用dplyr包执行很少的操作。

出于某种原因，当我使用：“b [匹配（输入$ defInput，a）]％in％c（0:14）”时，它不起作用，但是当我手动检查“alpha％in％c时（0:14）“，它运作正常。

我检查了参数的类，它们似乎匹配。任何解决它的建议将不胜感激！

server <- function(input, output, session) {
    filtered <- reactive({
        a = c ("Option1", "Option2", "Option3", "Option4")
        b = c ("alpha", "beta", "gamma", "delta")
             df %>% 
            filter (b[match(input$defInput, a)] %in% c(0:14))
})

server <- function(input, output, session) {
    filtered <- reactive({
        a = c ("Option1", "Option2", "Option3", "Option4")
        b = c ("alpha", "beta", "gamma", "delta")
             df %>% 
            filter (alpha %in% c(0:14))
})