Как мне сочетать реактивные значения на наблюдаемых событиях Ршины

Question

Нажатие кнопки Я хочу отключить кнопку, сохранить переменную на основе ввода и затем запустить функцию в будущем. После того, как будущее закончится, я sh сохраню результат в реактивную переменную, а затем снова включу кнопку ... Мой код:

values <- reactiveValues()

  observeEvent(input$loadResult, {
    disable("loadResult")
    fromdate <- format(input$dateRange[1])
    todate <-  format(input$dateRange[2])
    myFuture <- future({

      Function$myFunction(format(input$dateRange[1]),format(input$dateRange[2]))

    })

    then(myFuture , onFulfilled = function(value) {
      values$myResult <- value  
    },
    onRejected = NULL)
    shinyjs::show(id = "body")
    enable("loadResult")
  })

Моя ошибка:

Необработанное обещание ошибка: операция не разрешена без активного реактивного контекста.