閃亮

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, ]？如果我做了以下操作，我得到一個「對象類型'關閉'不可子集」錯誤：

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閱讀。關於反應性的頁面很好地解決了這個問題。