R shiny -我在"Renderplot“中创建了一个数据帧，并希望在此之外访问它。我怎样才能使它成为响应式的？

library(shiny)

ui <- fluidPage(
  plotOutput("plot"),
  textOutput("summary")
)

server <- function(input, output) {
  # 创建一个响应式的数据帧
  data <- reactive({
    # 在这里进行数据处理和计算
    # 例如，可以从外部数据源加载数据，或者根据用户输入进行数据过滤和转换
    # 这里只是一个示例，你可以根据实际需求进行修改
    data <- data.frame(
      x = 1:10,
      y = 1:10
    )
    return(data)
  })
  
  # 在"RenderPlot"中使用响应式的数据帧
  output$plot <- renderPlot({
    data <- data()  # 获取响应式的数据帧
    plot(data$x, data$y)
  })
  
  # 在"RenderText"中使用响应式的数据帧
  output$summary <- renderText({
    data <- data()  # 获取响应式的数据帧
    summary(data)
  })
}

shinyApp(ui, server)