Update selectInput bei Änderung eines anderen selectInput 2 Wege umgekehrt

Question

Ich muss den Wert eines selectInput ändern, mit seiner eigenen Eingabe-ID, wenn der Wert eines anderen selectInput, mit einer anderen Eingabe-ID ändert und umgekehrt.

Mein aktuelles Problem ist, dass meine Lösung nur in eine Richtung funktioniert, ich möchte, dass es auf 2 Arten funktioniert. Wenn der zweite selectInput durch die Änderung am ersten selectInput korrekt aktualisiert wird, zeigt das Dropdown-Menü des zweiten nicht mehr die vollständige Liste eines refBase-Feldes an. Hier

ist der Code, den ich zur Zeit bin mit:

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

Hilfe würde sehr geschätzt werden.

Answer 1

Dies ist meine Lösung:

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]))