如何在Quarto文档的每个代码块前后自动执行R代码？

架构老林

2026-7-15

在Quarto中统一为所有代码块添加计时功能

先在文档开头的代码块中提前加载tictoc包：
```
library(tictoc)
```

接着用Quarto基于knitr的代码块钩子功能，在文档开头添加以下配置代码，实现全局自动计时：

knitr::knit_hooks$set(
  before = function(before, options, envir) {
    if (before) tic()
  },
  after = function(after, options, envir) {
    if (after) toc()
  }
)

原理说明：这段代码会给所有代码块绑定两个钩子——执行前自动触发tic()开启计时，执行后自动触发toc()输出耗时，无需逐个代码块手动添加函数。
例外处理：如果某几个代码块不需要计时，可以单独在代码块的选项中关闭钩子，比如：
```
#| before: false
#| after: false
cat("这个代码块不会被计时")
```