renderDataTable不从动态数据创建数据框

Question

我正在创建一个闪亮的应用程序，用户从下拉菜单中选择所需的字段以显示数据表。我正在使用renderDataTable来显示原始数据。输出数据表随我的下拉选择而变化。从原始数据中，我想创建图表来总结数据，这需要一个数据框。

首先，我正在使我的下拉选择被动反应。这是它的代码：

Table1 <- reactive({
input$names1
input$names2
})

然后我在renderDataTable语句中使用这些选择：

output$Data <- renderDataTable({
Table2 <- as.data.frame(sqlQuery(dbhandle, paste0("select a, b, c from Table where column = ",input$names1," and column2 = ",input$names2,""))) })

如何使用renderDataTable从原始数据创建数据框？