R语言实现按下回车键后执行代码遇到的异常问题

你的代码使用readline等待回车，但在非交互式环境（比如直接运行整个脚本）中，readline会自动跳过，导致后续代码直接执行。这是因为readline仅在交互式控制台中生效。

修正方案 #

方法1：使用scan函数替代（兼容交互/非交互环境） #

scan函数在两种环境下都会等待输入，适合脚本场景：

print_me_after_press <- "YYeeeess!!!"
# 等待回车键，quiet=TRUE隐藏输入提示外的冗余信息
scan(nmax = 1, quiet = TRUE, prompt = "Press [enter] ")
print(print_me_after_press)

方法2：确保在交互式控制台运行 #

如果是在IDE（如RStudio）中，不要直接运行整个脚本，而是逐行执行代码，或者打开控制台手动输入代码，此时readline会正常等待回车。

方法3：兼容两种环境的判断逻辑 #

如果需要脚本同时支持交互和非交互场景，可以添加环境判断：

print_me_after_press <- "YYeeeess!!!"
if (interactive()) {
  invisible(readline("Press [enter] "))
} else {
  cat("Press [enter] to continue...\n")
  scan(nmax = 1, quiet = TRUE)
}
print(print_me_after_press)

内容的提问来源于stack exchange，提问作者mr.T