Ustaw globalny obiekt w błyszczące

Question

Powiedzmy mam następujący plik server.R w błyszczące:

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

Co mogę zrobić, aby nie uruchomić data2 <- data[data$x == input$z, ] w każdym wywołaniu uczynić? Jeśli I wykonaj następujące czynności, pojawia się „obiekt typu«zamknięcie»nie jest subsettable” Błąd:

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

Co zrobiłem źle?

Answer 1

data2 to funkcja, która zwraca wybrany podzestaw. Więc trzeba zadzwonić data2 i zapisywać dane wyjściowe do jakiejś zmiennej potem można wykreślić/podsumować różne kolumny

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

Jeśli nie masz już, polecam przeczytanie http://rstudio.github.io/shiny/tutorial/#welcome. Strona dotycząca reaktywności dość dobrze odpowiada na to pytanie.