This can be done using the reactiveValues function:
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 }) }) )
jdharrison
source share