lapply（）与用户输入

Question

有没有办法使用lapply()强制它在用户进入列表的下一个元素之前等待用户“输入”？如果是这样，你能提供一个简单的例子吗？

Answer 1

这里是例子：

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