闪亮

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阅读。关于反应性的页面很好地解决了这个问题。