实现这一点的一个选项是使用reactiveVal或reactiveValues：

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(
    actionButton("call", "Call"),
    actionButton("save", "Save"),
    verbatimTextOutput("text"),
    DT::dataTableOutput("table_out")
  ),
  server = function(input, output, session) {
    my_dynamic_table <- reactiveVal(data.frame())
    
    observeEvent(input$call, {
      my_dynamic_table(mtcars)
      
      output$table_out <- DT::renderDataTable(
        my_dynamic_table()
      )
    })

    observeEvent(input$save, {
      output$text <- renderText({
        if (nrow(my_dynamic_table()) > 0) {
          "Something 1"
        } else {
          "Something 2"
        }
      }) # renderText
    }) # observeEvent
  } # server
) # shinyApp

虽然我确实认为使用reactiveValues是解决这个问题的一个好办法，但我得说在observeEvent()中使用output从来都不是一个好主意。我将如下重新安排代码。在observeEvent中，我们观察操作按钮，当单击时，更新reactiveValues。这些也是output的中间体。

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(
    actionButton("call","Call"),
    actionButton("save","Save"),
    verbatimTextOutput('text'), 
    DT::dataTableOutput('table_out')
    
  ),
  
  server = function(input, output, session) {
    
    my <- reactiveValues(dynamic_table = data.frame(NA),
                         text = NA)
    
    observeEvent(input$call, {
      
      my$dynamic_table <- mtcars
      
    })
    
    
    observeEvent(input$save, {
      
      if (nrow(my$dynamic_table) > 1) {
        my$text <- "Something 1"
      } else {
        my$text <-"Something 2"
      }
    }) 
    
    
    output$text <- renderText({
      req(input$save)
      my$text
      })
    
    output$table_out <- DT::renderDataTable({
      req(input$call)
      my$dynamic_table            
      
    }) 
    
  } #server
) #shinyApp