Допустим, у меня есть следующий файл server.R в блестящем:

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)
   })
})

Что я могу сделать, чтобы не пришлось бежатьdata2 <- data[data$x == input$z, ] в каждом вызове рендеринга? Если я сделаю следующее, я получу ошибку «объект типа« замыкание »не является подмножеством»:

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)
  })
})

Что я сделал не так?