如何避免编译Quarto/R Markdown文档时重复加载R包？

方法1：检查包状态后按需加载 #

写一个轻量的自定义函数，仅在包未加载时执行加载操作，彻底避免重复加载的耗时：

# 自定义包加载函数
load_pkgs <- function(pkg_list) {
  lapply(pkg_list, function(pkg) {
    # 先检查包是否安装，未安装则自动安装（可选）
    if (!requireNamespace(pkg, quietly = TRUE)) {
      install.packages(pkg, dependencies = TRUE)
    }
    # 仅当包未加载时，执行library()
    if (!pkg %in% loadedNamespaces()) {
      library(pkg, character.only = TRUE)
    }
  })
}

# 调用函数批量加载需要的包
load_pkgs(c("dplyr", "ggplot2", "tidyr", "stringr"))

这个函数通过loadedNamespaces()判断包是否已在当前会话中加载，只有未加载的包才会执行library()操作，完美解决重复加载的问题。

方法2：结合会话缓存优化（针对RStudio复用会话场景） #

如果你在RStudio中编译文档时复用同一个R会话（默认行为），可以把加载包的代码块单独设置cache=TRUE，同时让缓存依赖于当前会话的包加载状态：

# 设置缓存依赖为已加载的包，确保缓存仅在包状态变化时失效
knitr::opts_chunk$set(cache.extra = loadedNamespaces())

# 加载包的代码块，开启缓存
library(dplyr)
library(ggplot2)

不过这种方法依赖会话复用，如果你每次编译都新建会话，方法1的适用性更强。

额外提示：项目级统一加载 #

如果是Quarto项目，可以把包加载逻辑放在单独的_setup.qmd文件中，然后在主文档开头通过include: _setup.qmd引入，这样所有子文档都会共享同一套加载逻辑，避免重复编写代码。

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