Odliczanie w R błyszczący?

Question

Chcę wyświetlać bieżący czas w mojej błyszczącej aplikacji. Dlatego mogę używać Sys.time()

function(input, output, session) { 
    output$currentTime <- renderText({ 
    invalidateLater(1000, session) 
    paste("The current time is", Sys.time()) 
    }) 
} 

Zastanawiam się, czy możliwe jest również, aby zakodować czasomierza w zależności od bieżącego czasu na przykład nadchodzące wydarzenie?

Answer 1

Poniższy kod należy zrobić (załóżmy zdarzenie jest tylko 4 min naprzód):

EventTime <- Sys.time() + 4*60 
output$eventTimeRemaining <- renderText({ 
    invalidateLater(1000, session) 
    paste("The time remaining for the Event:", 
      round(difftime(EventTime, Sys.time(), units='secs')), 'secs') 
    }) 

z następującym wyjścia:

The time remaining for the Event: 226 secs