R/RStudio中如何自动跳过控制台的“Press Enter to continue”提示？

问题根源 #

这个暂停提示一般是你调用的模型函数内部嵌入了readline()、menu()这类等待用户输入的逻辑，导致循环被强制中断，必须手动交互才能继续。

可行解决办法 #

1. 用processx包模拟自动输入（跨平台通用） #

这个方法能可靠地给需要输入的函数自动传入回车信号：

• 先安装并加载包：

  install.packages("processx")
  library(processx)
  

• 将单次模型运行的代码单独存为脚本（比如single_model_run.R），然后在循环里用run()函数执行，自动传入换行符：

  for (iter in 1:10) {
    # 自动传入回车，跳过等待提示
    run("Rscript", args = "single_model_run.R", input = "\n")
  }
  

2. 终端重定向输入（适合脚本批量运行） #

如果是在终端环境运行你的循环脚本，可以通过重定向空输入来跳过等待：

• Linux/macOS终端：

  Rscript your_loop_script.R < /dev/null
  

• Windows命令提示符：

  Rscript your_loop_script.R < NUL
  

3. 修改模型函数源码（根源解决） #

如果你能获取模型函数的源码，找到其中类似readline("Press Enter to continue")的代码段，直接注释掉或者替换为空语句，彻底移除等待输入的逻辑。

4. Windows平台专属：用sendkeys模拟按键 #

仅适用于Windows系统的RStudio环境，通过模拟物理按键来自动回车：

install.packages("sendkeys")
library(sendkeys)

for (iter in 1:10) {
  # 运行模型，捕获输出避免控制台阻塞
  capture.output(your_model_function(), file = NULL)
  # 模拟按下回车键
  sendkey("ENTER")
}

内容的提问来源于stack exchange，提问作者Jan Lukas Wenzel