R: предложите 5 секунд, чтобы потребовать паузу. Если пауза не потребовалась, возобновите процесс

Как я могу предложить 5 секунд пользователю написать что-то, чтобы попросить паузу неопределенной длины. Если в течение этих 5 секунд пауза не требуется, процесс продолжается. Если требуется пауза, у пользователя есть все время (и), в котором он нуждается, и он может нажать "enter", чтобы возобновить процесс всякий раз, когда он захочет.

Интерес такой функциональности заключается в том, что если пользователь отсутствует, пауза длится всего 5 секунд. И если пользователь присутствует, то он может наслаждаться паузой, чтобы наблюдать за графиком, который был создан, например.

В конечном итоге код может выглядеть следующим образом:

DoYouWantaPause = function(){
   myprompt = "You have 5 seconds to write the letter <p>. If you don't the process will go on."

   foo = readline(prompt = myprompt, killAfter = 5 Seconds)    # give 5 seconds to the user. If the user enter a letter, then this letter is stored in `foo`.

   if (foo == "p" | foo == "P") {    # if the user has typed "p" or "P"
        foo = readline(prompt = "Press enter when you want to resume the process")  # Offer a pause of indefinite length
   }
}

# Main
for (i in somelist){
    ...
    DoYouWantaPause()
}