Impostare oggetto globale in Shiny

Question

Diciamo che ho il seguente file server.R a lucido:

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

Cosa posso fare per non dover correre data2 <- data[data$x == input$z, ] all'interno di ogni chiamata di rendering? Se faccio il seguente, ho un "oggetto di tipo 'chiusura' non è subsettable" Errore:

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

Che cosa ho fatto di sbagliato?

Answer 1

data2 è una funzione che restituisce il sottoinsieme che si sta cercando. Quindi è necessario chiamare data2 e salvare l'output di una variabile, allora è possibile tracciare/riassumere le varie colonne

## data should be defined somewhere up here or in global.R 

shinyServer(function(input, output) { 
    data2 <- reactive(data[data$x == input$z, ]) 

    output$plot <- renderPlot({ 
    newData <- data2() 
    plot(newData$x, newData$y) 
    }) 

    output$table <- renderTable({ 
    newData <- data2() 
    summary(newData$x) 
    }) 
}) 

Se non lo hai già fatto, vi consiglio di leggere attraverso http://rstudio.github.io/shiny/tutorial/#welcome. La pagina sulla reattività risolve abbastanza bene questa domanda.