はシャイニー

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は、探しているサブセットを返す関数です。あなたはまだいないので、もしあなたがさまざまな列

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

、あなたはプロットすることができます/要約data2を呼び出し、いくつかの変数に出力を保存する必要があり、私はhttp://rstudio.github.io/shiny/tutorial/#welcome通読をお勧めします。反応性に関するページは、この問題をかなりうまく解決しています。