Реактивная функция суммирования в Shiny

Question

Я должен определить различные формулы суммирования, учитывая ввод в блестящем приложении.В этом случае вход - лс.Проблема в том, что hp имеет 22 уникальных значения.Я не думаю, что писать 22, если пункты хорошая идея.Есть ли альтернатива?

output$stats <- renderTable({


if(input$hp == 52){
mtcars %>%
group_by_(input$cyl) %>%
summarize(formula0 = carb/100,
          formula1 = am*vs)

}

else if(input$hp == 62){
mtcars %>%
group_by_(input$cyl) %>%
summarize(formula2 = gear/carb,
          formula3 = am/vs) 

}
else if(input$hp == 65){

mtcars %>%
group_by_(input$cyl) %>%
summarize(formula4 = qsec + carb,
          formula5 = drat/disp) 

}
else
{

df_subset() %>%
group_by_(input$cyl) %>%
summarize(formula6 = mpg/10,
          formula7 = disp^2) ) 

}


})