Выбранные реактивные блестящие материалы отбрасываются

Question

Я не знаю, как обращаться с реактивными блестящими входами.

selectInput(
                           inputId = "projekt",
                           label = "Projekt wählen",
                           multiple = TRUE,
                           choices = ""
                           #choices = unique(data_angepasst$Projektname)
                         ),

                         selectInput(
                           inputId = "zeitpunkt",
                           label = "Zeitpunkt",
                           choices = list(
                             test= c(`Var1)` = "var1"),
                             ),
                          #selected = "null",
                           multiple = TRUE),

Sever



  dataInput <- reactive({
data_angepasst  %>%
  arrange(var) %>%
  filter(relevant %in% input$rel)  %>%
  filter(if(length(input$zeitpunkt) != 0){zeit %in% input$zeitpunkt}else{relevant %in% input$rel})  %>%
  filter(if(length(input$bereich) != 0){ID %in% input$bereich}else{relevant %in% input$rel})  %>%
  filter(if(length(input$kleinste) != 0){kleinst %in% input$kleinste}else{relevant %in% input$rel})%>%
  filter(if(length(input$projekt) != 0){pn %in% input$projekt}else{relevant %in% input$rel})
  })



  observe({
updateSelectInput(session, "projekt",
                  choices = unique(dataInput()$pn)
)})


  observe({
updateSelectInput(session, "zeitpunkt",
                  choices = unique(dataInput()$zeit)
)})

Проблема в том, что он реагирует на мои входные данные, НО в то время, когда я выбираю проект или блестящий "zeitpunkt", сразу же забирает входные данные и снова показывает все возможности.

У кого-то есть идеи, как двигаться дальше?