自定义R Markdown chunk hook无法覆盖include和eval选项问题

问题根源 #

你使用的knit_hooks是用于控制代码块渲染行为（如输出格式、前后附加内容）的钩子，无法直接修改eval、include这类核心代码块选项。要实现动态修改代码块选项的需求，需使用opts_hooks来定义钩子。

修复方案 #

将原setup块中的钩子定义替换为opts_hooks版本，具体代码如下：

opts_hooks$set(export_fig = function(options) {
  if (options$export_fig) {
    fn <- gsub("^export_", "", options$label)
    options$include <- FALSE
    options$eval <- !file.exists(here(image_path, paste0(fn, ".png")))
  }
  options
})

完整可运行代码 #

title: "Chunks Options"
author: "Me"
output: html_document #

library(ggplot2)
library(knitr)
library(here)

image_path <- "figs"
if (!dir.exists(here(image_path))) {
  dir.create(here(image_path))
}

# 用opts_hooks替代knit_hooks实现选项动态修改
opts_hooks$set(export_fig = function(options) {
  if (options$export_fig) {
    fn <- gsub("^export_", "", options$label)
    options$include <- FALSE
    options$eval <- !file.exists(here(image_path, paste0(fn, ".png")))
  }
  options
})

(pl <- ggplot(mtcars, aes(disp, mpg)) +
   geom_point())

ggsave(here(image_path, "disp_mpg.png"), pl)

ggsave(here(image_path, "disp_mpg.png"), pl + geom_smooth(method = "lm"))

原理说明 #

opts_hooks是knitr专门用于动态修改代码块选项的钩子机制：

• 每个代码块在执行前会触发对应钩子
• 钩子函数接收当前代码块的选项参数，修改后返回
• knitr会直接使用返回的新选项来控制代码块的执行与显示

这样就能实现你需要的效果：export_disp_mpg代码块始终隐藏，仅当目标图片不存在时才执行生成操作。

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