lapply（）用户输入

Question

有没有办法以某种方式使用lapply()，迫使它在单步执行列表的下一个元素之前等待用户“输入”？如果是这样，你能提供一个简单的例子吗？

Answer 1

以下是示例：

es <- list(1, 2, 3)
lapply(es, function(e) {
  cat("Press enter:")
  readLines(n = 1)
  print(e)
})