I did manage to create a Countdown with this Code:
library(lubridate)
check <- ymd_hms(Sys.time())
stop <- ymd_hms(Sys.time()) + 5
while (check != stop) {
check <- ymd_hms(Sys.time())
}
print("now")
Now, I'm wondering whether there is some way to accomplish the same thing ("now" being printed after 5 Seconds), that is better / more elegant / faster. Thanks a lot!