基于R脚本生成HTML报告：遇首个错误即停并保留错误内容

问题原因 #

你当前的代码中，knitr::opts_chunk$set(error = TRUE)仅让knitr显示错误但会继续执行当前代码块内的剩余代码，因此后续的消息和第二个错误仍会被执行并输出；仅靠knit_exit()无法阻止当前代码块内后续代码的运行。

修改方案 #

通过添加stop_on_error = 1选项，让代码块遇到第一个错误时立即停止执行剩余内容，再结合错误钩子中的knit_exit()终止整个编织流程，就能实现仅保留第一个错误及之前内容的需求。

修改后的代码 #

脚本1（无需修改）

rmarkdown::render("Script 2")

脚本2

#+ include = TRUE 
knitr::opts_chunk$set(error = TRUE, stop_on_error = 1)
knitr::knit_hooks$set(error = function(x, ...) {
  knitr::knit_exit()
  x
})
#+ 

stop("this is an error!")

message("this message shouldn't be displayed")

stop("second error")

效果说明 #

修改后，当脚本执行到第一个stop()时，会触发错误并立即停止当前代码块的剩余代码执行，同时knit_exit()会终止整个HTML渲染流程。最终生成的报告只会显示第一个错误信息，后续的消息和第二个错误都不会被执行或出现在报告中。

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