別のselectInputの変更時にselectInputを更新する2つの方法

Question

異なる入力IDを持つ別のselectInputの値が変更されたり、その逆の場合は、そのselectIntの値を変更する必要があります。

私の現在の問題は、私のソリューションは一方向にしか働かないということです。私は2つの方法で動作させたいと思います。最初のselectInputの変更によって2番目のselectInputが正しく更新されると、2番目のドロップダウンメニューにrefBaseの1つのフィールドの完全なリストが表示されなくなります。ここで

は、私が現在使用しているコードです：

observe({ 
    choice <- refBase[match(input$in3, refBase[, 3]), 1] 
    updateSelectizeInput(session, "in4", choices = choice, server = FALSE) 
}) 

ヘルプをいただければ幸いです。

Answer 1

これは私のソリューションです：

observeEvent(input$in3, updateSelectInput(session, input = 'in4', selected=refBase[match(input$in3, refBase[, 3]), 1])) 
observeEvent(input$in4, updateSelectInput(session, input = 'in3', selected=refBase[match(input$in4, refBase[, 1]), 3]))