当然有办法！不用在每行加打印语句，下面两个方案都是零代码修改就能实现的：

方案1：调整RStudio的Source on Save选项（最简便） #

这是最直接的方法，完全利用RStudio内置功能：

• 打开RStudio的Tools > Global Options > Code > Saving
• 确保已经勾选了**"Source file when saved"**（你已经启用了这个）
• 点击旁边的**"Source options"按钮，在弹出的窗口里勾选"Echo code to console"**
• 点击确定保存设置

之后每次你保存源码文件，RStudio会自动执行代码，同时在控制台实时打印正在执行的每一行代码。因为你的每行代码运行时间很长，控制台最后输出的那行就是当前正在执行的行，一眼就能看到进度。

方案2：临时添加R执行回调（更灵活） #

如果需要更自定义的输出（比如只打印关键信息），可以在R控制台运行一段临时代码（不用修改你的源码文件）：

# 添加执行回调，每次执行代码时打印当前表达式
tracker <- addTaskCallback(function(expr, value, ok, visible) {
  # 解析当前执行的代码行并打印
  cat("当前执行行:", deparse(expr), "\n")
  # 返回TRUE保持回调生效
  return(TRUE)
})

运行这段代码后，不管是通过source on save还是手动source文件，都会在控制台实时输出当前正在执行的代码内容。如果想要停止追踪，只需要在控制台运行：

removeTaskCallback(tracker)

注意事项 #

• 如果你的代码里有跨多行的复合表达式（比如包裹在{}里的多行逻辑），回调会把整个复合块当成一个执行单元，这时候输出的是整个块的代码，而不是单一行。但对于大多数逐行执行的脚本来说，这个问题影响不大。
• 方案1的Echo功能会完整输出每行代码，对于长代码行来说可能有点占控制台空间，但胜在设置简单，不用额外操作。

内容的提问来源于stack exchange，提问作者JJJ