Comment attendre une pression sur une touche en R?

Je souhaite mettre mon script R en pause jusqu'à ce que l'utilisateur appuie sur une touche. Comment puis-je faire