使用reactivePoll累積輸出數據

Question

我剛剛注意到reactivePoll() - 但需要一些幫助來解決我的用例。

我想將數據累積到矢量，列表或data.frame（無關緊要），然后繪制數據，UI顯示一個圖表，數據在新數據進入時累積。問題是我看不到如何在不替換舊數據的情況下向舊數據添加新數據。 在這個例子中（ https://gist.github.com/sckott/7388855 ）我只得到data.frame中的初始行和最新的行，而不是所有數據的累積。 對於此示例，如何使data.frame增長，在底部添加新數據？

Answer 1

這可以使用reactiveValues函數完成：

runApp(
  list(
    ui = 
      mainPanel(
        tableOutput(outputId="dataTable")
      ),
    server = function(input, output, session) {
      myReact <- reactiveValues(df =data.frame(time=Sys.time()))
      readTimestamp <- function() Sys.time()
      readValue <- function(){
        data.frame(time=readTimestamp())
      }
      data <- reactivePoll(1000, session, readTimestamp, readValue)
      observe({
        myReact$df <- rbind(isolate(myReact$df), data())
      })
      output$dataTable <- renderTable({
        myReact$df
      })
    })
)