sql - R シャイニーとデータベース

Question

私は本当にあなたの助けが必要です。テーブルが「t_client（id_cli、name_cli）」であるDataBaseの例があります。「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」との間のリンクがありません