使用dplyr将有光泽的变量传递给reactive（）中的dplyr

Question

对不起，如果这个问题听起来很愚蠢。 我一直在尝试修改这个闪亮的应用程序托管在： https://joejansen.shinyapps.io/citi-bike-data-with-rCharts/

Github链接：https://github.com/joejansen/citi-bike-data-with-rCharts

我想添加分组变量，以便我可以将相关表与分组相关联。 例如，如果用户选择“月”，那么它应列出每个月的相关性与“行驶的里程数”。

到目前为止，我有这个

Server.r

#Server.r
library(dplyr)

corTable <- reactive({
  yChoice = input$variable
  yCor = citibike_all[yChoice]

#Here we input our group
  # yGroup = input$group
  # yGroup_input = citibike_all[yGroup]
#For simplicity I selected "month" as a grouping variable but it gives me same values. 

  grouped_table <- citibike_all %>%
    group_by(month) %>%
    dplyr::summarize(., cor(citibike_all$miles, yCor , use = "complete.obs"))

  grouped_table
})

#Output
 output$corTable<-renderTable({
           corTable()
            })

在 index.html

中

 <div id="corTable" class="shiny-html-output shiny-bound-output">

我在stackoverflow上尝试了这个答案： Passing user specifications as arguments to dplyr within Shiny 但它对我不起作用。我持续获得所有月份的相关值：

感谢您阅读此问题。