如何基于闪亮的选择输入从MySQL数据库读取数据

Question

在这种情况下，谁能帮我喜欢如何从数据库中读取数据，我使用的是装载了虹膜数据集的MySQL数据库，当我根据Shinyapp中的选择输入选择物种类型时，我需要获取所有相关数据到特定的输入集。...共享下面的代码

ui<-shinyUI(fluidPage(
  titlePanel("Iris Dataset"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select", label = h5("select species"),choices = c("setosa", "vericolor", "virginica"), 
                  selected = "setosa")
                ),
    mainPanel(
      textOutput("data")
    )
  )
))

server<-shinyServer(function(input, output) {

  #referring output distPlot in ui.r as output$distPlot
  output$data <- renderText({
      query<-paste0("select * from iris where Species= '", input$select , "'", sep='')
      species<-dbGetQuery(con_iris, query)
      })
})

shinyApp（ui = ui，server = server）

在我的情况下，我仅获得列名，而没有获得数据集..如果有人可以解决此问题，那将有很大帮助..