r - R Shiny の他の選択に基づいて 2 つの selectInput ボックスを動的に更新する

Question

私は光沢のあるアプリを開発しており、2 つの selectInput ボックスがあります。どちらも同じ入力を受け取り、他の選択に基づいて入力ボックスを更新したいと考えています。

基本的に、ある入力ボックスで選択した変数を、他のドロップダウンでは使用できないように削除したいと考えています。

vars <- c("A", "B", "C", "D", "E", "F", "G", "H")

selectInput("v1", label = "Select Variable 1", choices = vars),
selectInput("v2", label = "Select Variable 2", choices = vars)

上記の例では、ユーザーがオプション A を「V1」として選択した場合、v2 で使用可能なオプションから A を削除したいと考えています。私は次のことを試みましたが、成功しませんでした

  observe({
    updateSelectInput(session, "v1", choices = vars)
  })

observe({
        updateSelectInput(session, "v2", choices = vars)
  })