在Shiny中通过输入变量计算平均值的错误
使用R中的mtcars数据集，我正在使用输入变量（cyl，am等）来计算该变量的平均mpg。
我在ui.R中的代码如下所示：
verbatimTextOutput("Avg_Mileage")
我在server.R中的shinServer函数中的代码如下所示：
carsdata <- mtcars
output$Avg_Mileage <- renderPrint({aggregate(mpg~input$variable, carsdata,mean)})
我试图以各种方式更改server.R中的代码。 但我不断收到有关冲突变量长度的消息： “变量长度不同（找到'input $ variable'） ”
我很感激任何帮助，看看这个意思是如何通过输入变量来实现mpg在Shiny中实现
我设法弄清楚了这一点。
将server.R更改为：
output$Avg_Mileage <- renderTable({aggregate(as.formula(formulaText()), carsdata,mean)})
和ui.R到：
tableOutput(outputId = "Avg_Mileage")