Блестящая ошибка области видимости с помощьюObservEvent

У меня есть следующее в server.R в блестящем приложении...

shinyServer(function(input, output, session) {

   observeEvent(
     input$goButton,  #dependency
     {
       Predictores<-reactive({
         test<-input$LUNES*20
         test2<-input$LUNES*30  
         data.frame("one" = test, 
                    "two" = test2)
       })
     output$productos<-renderTable({as.data.frame(Predictores())},
                                   include.rownames = FALSE )
     }
   )
})

Когда я пробую ui.R, это работает нормально, и приложение работает, но ничего не происходит, когда я нажимаю «goButton». Желаемым результатом будет таблица с фреймом данных (сейчас я тестирую).

Это отлично работает с такой реактивной функцией:

shinyServer(function(input, output, session) {

  Predictores<-reactive({
    test<-input$LUNES*20
    test2<-input$LUNES*30  
    data.frame("uno" = test, 
               "dos" = test2)
  })
output$productos<-renderTable({as.data.frame(Predictores())},
                               include.rownames = FALSE )
 })

Но поскольку реальное приложение будет вычислять модель с интенсивными вычислениями на основе входных данных, я хочу, чтобы расчет выполнялся только после того, как пользователь нажимает «перейти», а не каждый раз при изменении входных данных.

Я просмотрел блестящие документы, и это похоже на то, но, может быть, я упускаю какие-то правила области видимости? Может быть поэтому он работает, но я ничего не вижу...