lapply（）與用戶輸入

Question

有沒有辦法使用lapply()強制它在用戶進入列表的下一個元素之前等待用戶「輸入」？如果是這樣，你能提供一個簡單的例子嗎？

Answer 1

這裏是例子：

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