闪亮的r ddply对象未找到错误

Question

我正在使用闪亮的server.R代码中的ddply遇到Object not found问题 这就是我所拥有的

    a1<-read.table("orig_final.txt", header = T) 
    shinyServer(function(input, output) {
    data <- reactive({
    ddply(a1, .(Claim_type),here(summarize), size_in_GB sum(eval(parse(input$bygroup))))
    })
    })

输入$ bygroup值来自名为“bygroup”的复选框组中的用户选择，它的值是数据框a1中的列名。 我得到的错误是找不到对象“输入” 为什么不接受输入$ by group值？