如何在再次调用eventReactive时访问该eventReactive的输出。RShiny

library(shiny)

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

server <- function(input, output) {
  # 创建一个reactiveValues对象，用于保存eventReactive的输出
  values <- reactiveValues(output = NULL)
  
  # 定义一个eventReactive，当点击提交按钮时，重新计算输出
  eventReactive(input$submit_button, {
    # 访问输入文本并进行处理
    input_text <- input$input_text
    processed_text <- toupper(input_text)
    
    # 将处理后的文本保存到reactiveValues对象中
    values$output <- processed_text
  })
  
  # 输出保存在reactiveValues对象中的文本
  output$output_text <- renderText({
    values$output
  })
}

shinyApp(ui, server)