R 如何在键入时阻止文本更新？

我正在尝试编写一个闪亮的小应用程序，将输入的代码输入到textInput字段中，当我按下按钮时，它会显示在textInput下面。我不希望它在我打字时自动更新

它只工作一次，但在我点击actionButton之后，逐字输出中的文本在我键入时开始更新。如何停止此操作，使verbatinTextOutput仅在我点击applyButton时更新？我应该使用verbatinTextOutput吗？谢谢

服务器.R

library(shiny)

shinyServer(function(input, output) {

    # You can access the value of the widget with input$text, e.g.

    observeEvent(input$doBtn, {
        #... # do some work
        output$value <- renderPrint({input$text})
        #... # do some more work
   })
})

library(shiny)
shinyServer(function(input, output) {

    output$value <- renderText({
    if (input$doBtn == 0)
        return()

    isolate({input$text})
    })    
})

我明白了

服务器.R

library(shiny)

shinyServer(function(input, output) {

    # You can access the value of the widget with input$text, e.g.

    observeEvent(input$doBtn, {
        #... # do some work
        output$value <- renderPrint({input$text})
        #... # do some more work
   })
})

library(shiny)
shinyServer(function(input, output) {

    output$value <- renderText({
    if (input$doBtn == 0)
        return()

    isolate({input$text})
    })    
})

库（闪亮）
shinyServer（功能（输入、输出）{
产值