चमकदार

Question

में वैश्विक वस्तु सेट मान लीजिए कि मैं चमकदार में निम्नलिखित 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, ] चलाने के लिए है? अगर मैं निम्नलिखित करते हैं, मैं एक "प्रकार 'बंद' की वस्तु subsettable नहीं है" मिल त्रुटि:

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

क्या मैं गलत क्या किया?

Answer 1

data2 एक ऐसा फ़ंक्शन है जो आप जिस सब्सक्राइब की तलाश में है उसे लौटाता है। तो तुम, data2 कॉल करने के लिए और कुछ चर करने के लिए उत्पादन को बचाने तो आप प्लॉट कर सकते हैं/संक्षेप में प्रस्तुत विभिन्न स्तंभों

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

आप पहले से ही नहीं है, तो जरूरत है मैं http://rstudio.github.io/shiny/tutorial/#welcome के माध्यम से पढ़ने की सलाह देते। प्रतिक्रियाशीलता पर पृष्ठ इस सवाल को काफी अच्छी तरह से संबोधित करता है।