group_by，总结反应性不起作用

Question

反应性在我的应用程序中的其他任何地方都可以正常工作，但是当我尝试创建一个摘要统计表时，表返回所选变量的名称而不是摘要统计量：

ui <- selectInput('summary_metric', 'Select Metric', choices = c('height', 'weight'))
      tableOuput('summary_table')

server <- function(input, output) {
      output$summary_table <- renderTable({ data %>% group_by(Age_Group) %>% 
                                                     summarise(min = min(input$summary_metric),
                                                               median = median(weight))})

返回一个读取的表：

age_group	min	中间
18-29	重量	170
30-- 39	重量	180
40-49	重量	190

当在UI中选择“重量”并在UI中选择“高度”时将“重量”切换为“高度”。因此，它没有计算最小值，而只是返回变量名称。关于我缺少的东西有什么想法吗？