通過輸入變量計算平均值的錯誤

Question

使用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)}) 

我曾試圖改變服務器的代碼.R以各種方式。不過，我不斷收到關於衝突的可變長度消息：「可變長度不同（發現‘輸入$變量’）」

我將不勝感激，試圖看到這怎麼可能意味着MPG通過輸入變量來實現任何幫助在閃亮

Answer 1

我設法弄清楚這一個。

改變了server.R到：

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

和ui.R到：

tableOutput(outputId = "Avg_Mileage")