sql - R闪亮和数据库

Question

我真的需要你的帮助。我有一个数据库示例，其中表是“t_client（id_cli，name_cli）”我想从“selectInput”中选择客户端（id_cli）的ID，结果通过反应函数为我提供了客户端（name_cli）的名称。这是我的代码：

req1 = dbGetQuery(DB, "select id_cli, name_cli from t_client;")

selectInput(inputId = "id_cli", label = "Clients", choices = req1$id_cli)

databaseInput <- reactive({
  req1$id_cli = input$id_cli
  req2 = dbGetQuery(DB, "select *from t_client where id_cli = 'req1$id_cli';")
  req2
})

renderTable({
   databaseInput()
})

它不起作用；我没有来自 selectInput 的项目和真实表“t_client”之间的链接