在Shiny中引用具有反应性输入变量的列

Question

通过Shiny中的lm函数尝试使用输入变量值引用“结果”数据框中的指示列。 我已经在控制台中对此进行了测试，但工作正常，但当我实际运行该应用程序时却无法正常工作。

我不认为所有代码都是必需的（但是如果需要，我会乐意包含更多代码），所以这是server.r的重要内容：

compareVar2 <- reactive({
    if(input$compareVar2 == 'first'){
        return (results$firstPostScore)
    }else if(input$compareVar2 == 'last'){
        return (results$lastPostScore)
    }else if(input$compareVar2 == 'avg'){
        return (results$avgPostScore)
    }else {return (results$avgPostScore)} #just as a fall-back default

output$analysis <- renderPrint({
    analysis <- lm(preScore ~ compareVar2, data = results)
    return (summary(analysis))
})

我收到以下错误消息：
model.frame.default中的错误（公式= preScore〜compareVar2，数据=结果，：变量'​​compareVar2'的类型无效（关闭）

我似乎在任何地方都找不到特定于此的任何东西：-/

谢谢！

Answer 1

compareVar2是一个函数，因此应将其称为compareVar2（）：

analysis <- lm(preScore ~ compareVar2(), data = results)