在Shiny中通过输入变量计算平均值时出错

Question

使用R中的mtcars数据集，我想使用输入变量（cyl，am etc ...）来计算该变量的平均mpg。

我在ui.R中的代码就像：

verbatimTextOutput("Avg_Mileage")

我在server.R中的shinServer函数中的代码如下：

carsdata <- mtcars

output$Avg_Mileage <- renderPrint({aggregate(mpg~input$variable, carsdata,mean)})

我试图以各种方式更改server.R中的代码。但我一直收到有关冲突变量长度的消息：＆＃34;变量长度不同（找到＆＃39;输入$ variable＆＃39;）＆＃34;

我很感激任何帮助，试图看看这是什么意思是输入变量的mpg在Shiny中实现

Answer 1

我设法找出了这一个。

将server.R更改为：

output$Avg_Mileage <- renderTable({aggregate(as.formula(formulaText()), carsdata,mean)})

和ui.R到：

tableOutput(outputId = "Avg_Mileage")