8

最近気づいreactivePoll()たのですが、ユースケースを理解するのに少し助けが必要です。

ベクター、リスト、または data.frame (問題ではない) にデータを蓄積し、データをプロットして、新しいデータが入ってくるとデータが蓄積されるグラフを UI に表示します。問題はわかりません。古いデータを置き換えずに新しいデータを古いデータに追加する方法。この例 ( https://gist.github.com/skott/7388855 ) では、すべてのデータの蓄積ではなく、data.frame の最初の行と最新の行のみを取得します。この例data.frameでは、下部に新しいデータを追加して、 を成長させるにはどうすればよいでしょうか?

4

1 に答える 1

8

これは、次の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
      })
    })
)
于 2014-05-03T19:01:29.900 に答える