# Assume the existence of readTimestamp and readValue functions
function(input, output, session) {
data <- reactivePoll(1000, session, readTimestamp, readValue)
output$dataTable <- renderTable({
data()
})
}
Run the code above in your browser using DataLab