Подсказка пользователя прерывается l oop - как ответить автоматически?

Question

Иногда функции запрашивают у пользователей ввод, например:

foo = function() {
  cat("Hit [enter]")
  readline()
}

Это делает использование функции в al oop непрактичным, поскольку на каждой итерации пользователя просят ввести ввод до продолжения l oop :

> lapply(1:10, function(i) {
+   invisible(foo())
+ })
Hit [enter]

Какой эффективный способ подавить такое поведение, чтобы функцию можно было использовать в al oop?