Đặt đối tượng toàn cầu trong Shiny

Question

Hãy nói rằng tôi có file server.R sau trong sáng bóng:

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

Những gì tôi có thể làm để không phải chạy data2 <- data[data$x == input$z, ] trong mỗi cuộc gọi render? Nếu tôi làm như sau, tôi nhận được lỗi "đối tượng thuộc loại 'đóng' không được đặt":

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

Tôi đã làm gì sai?

Answer 1

data2 là một hàm trả về tập con bạn đang tìm kiếm. Vì vậy, bạn cần phải gọi data2 và lưu đầu ra đối với một số biến sau đó bạn có thể vẽ/tóm tắt các cột khác nhau

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

Nếu bạn chưa sẵn sàng, tôi khuyên bạn nên đọc qua http://rstudio.github.io/shiny/tutorial/#welcome. Các trang trên phản ứng địa chỉ câu hỏi này khá tốt.