如何结合观察事件的反应性值Rshiny

Question

在“按钮”上单击“我想禁用按钮”，根据输入保存变量，然后在将来运行函数。将来完成后，我希望将结果保存到一个反应变量，然后重新启用该按钮...我的代码：

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")
  })

我的错误：

未处理的承诺错误：如果没有活动的响应上下文，则不允许进行操作。