eventReactive () не работает, как я ожидал

Question

У меня есть список элементов, из которых я хочу выбрать один, чтобы позже я мог отобразить его с помощью renderDataTable ().

Для этого я использую eventReactive () вместе с циклом for в списке. Проблема в том, что кажется, что Shiny даже не использует мой цикл и не отображает ни сообщения об ошибке.

Когда я заменяю eventReactive () на oberveEvent (), все работает просто отлично, (использует глянцевыйцикл, как я и ожидал, хотя, конечно, данные не сохраняются в реактивной переменной). Насколько я знаю, наблюдаем, что наблюдаем общий доступ к функциям visibleEvent () и eventReactive (), поэтому я не знаю, как это исправить.

Я пытался явно использовать функцию return () в конце своего ifи для заявлений, но это не сработало.

data<-eventReactive(
 input$button,
 {
   for(i in df1$names_df %>% unique() %>% seq_along()){
     if( ( df_list[i] %>% names() ) == input$selected){
          value <- i  
          ( df_list[i] %>% names() ) %>% print() 
          value %>% print()
       }

   }
df_list[value] #this I want to show to users later
 } )