Countdown-Timer in R glänzend?

Question

Ich möchte die aktuelle Zeit in meiner glänzenden App anzeigen. Daher kann ich Sys.time()

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

verwende ich frage mich, ob es auch möglich ist, einen Countdown-Timer zu codieren, in Abhängigkeit von der aktuellen Zeit für z.B. eine bevorstehende Veranstaltung?

Answer 1

Der folgende Code sollte tun (nehmen wir an, das Ereignis nur 4 Minuten voraus ist):

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') 
    }) 

mit der folgenden Ausgabe:

The time remaining for the Event: 226 secs