R闪亮的观察事件继续触发

我正在努力让一个observeEvent进程在触发事件后只运行一次-单击一个按钮。这说明:

require(shiny)

ui = fluidPage(
  textInput("input_value", '1. input a value. 2. click button. 3. input another value', ''),
  actionButton("execute", 'execute'),
  textOutput('report')
)

server = function(input, output, session) {
  observeEvent(input$execute, {
    output$report = renderText(input$input_value)
  })
}

shinyApp(ui = ui, server = server, options = list(launch.browser = T))

您将看到,单击一次按钮后,textOutput将响应textInput更改,而不是单击按钮。

我尝试过这种方法:

server = function(input, output, session) {
  o = observeEvent(input$execute, {
    output$report = renderText(input$input_value)
    o$destroy
  })
}

没有效果。我也试过雇佣 isolate 不走运地工作。感谢你的建议。