在带有空值的shiny中使用observeEvent

library(shiny)

ui <- fluidPage(
  textInput("input_text", "输入文本"),
  actionButton("submit_button", "提交"),
  verbatimTextOutput("output")
)

server <- function(input, output) {
  observeEvent(input$submit_button, {
    # 使用isolate函数包裹触发事件的输入值
    input_text <- isolate(input$input_text)
    
    # 条件判断处理空值
    if (!is.null(input_text)) {
      output$output <- renderPrint({
        # 执行相应的代码逻辑
        paste("你输入的文本是：", input_text)
      })
    } else {
      output$output <- renderPrint({
        "请输入文本"
      })
    }
  })
}

shinyApp(ui, server)