Digamos que eu tenha o seguinte arquivo server.R em brilhante:

shinyServer(function(input, output) {
  output$plot <- renderPlot({
    data2 <- data[data$x == input$z, ]  # subsetting large dataframe
    plot(data2$x, data2$y)
  })
   output$table <- renderTable({
     data2 <- data[data$x == input$z, ]  # same subset. Oh, boy...
     summary(data2$x)
   })
})

O que posso fazer para não ter que correrdata2 <- data[data$x == input$z, ] dentro de cada chamada de renderização? Se eu fizer o seguinte, recebo um erro "objeto do tipo 'encerramento' não é subsettável":

shinyServer(function(input, output) {
  data2 <- reactive(data[data$x == input$z, ])
  output$plot <- renderPlot({
    plot(data2$x, data2$y)
  })
  output$table <- renderTable({
    data2 <- data[data$x == input$z, ]
    summary(data2$x)
  })
})

O que eu fiz errado?