server.r

# server.r
shinyServer(function(input, output, session) {
  readTimestamp <- function() Sys.time()
  df <- data.frame(time=Sys.time())
  readValue <- function(){
    rbind(df, data.frame(time=readTimestamp()))
  }
  data <- reactivePoll(1000, session, readTimestamp, readValue)
  output$dataTable <- renderTable({
    data()
  })
})

ui.r

# ui.r
require(rCharts)
shinyUI(
  mainPanel(
    tableOutput(outputId="dataTable")
  )
)