如何配置Quarto连接Azure DevOps自定义R包并避免重复安装

要实现仅当Azure DevOps上的自定义R包有变更时才重新安装，核心思路是对比本地已安装包的提交哈希与远程分支的最新提交哈希，仅在两者不一致（或本地未安装）时执行安装操作。

以下是修改后的代码：

#| include: false
#| cache: false
#| message: false
#| warning: false

# 1. 安装依赖工具包
c("git2r", "renv", "remotes") |>
  sapply(\(x) {
    if (!requireNamespace(x, quietly = TRUE)) {
      install.packages(x)
    }
  })

renv::activate()

# 配置参数：替换为你的包名和仓库信息
pkg_name <- "your-package-name"
repo_url <- "https://my-azure-repo.com/_git"
target_branch <- "2024-04-29_ECCMID"
gitcred <- git2r::cred_user_pass(
  username="username",
  password="repo-specific-pass")

# 2. 获取远程分支的最新提交哈希
get_remote_commit <- function(repo_url, branch, cred) {
  # 临时克隆仓库（仅拉取最新提交，减少带宽消耗）
  temp_dir <- tempfile(pattern = "git_temp_")
  dir.create(temp_dir)
  repo <- git2r::clone(repo_url, temp_dir, branch = branch, credentials = cred, depth = 1)
  remote_commit <- git2r::commits(repo)[[1]]@sha
  # 清理临时目录
  unlink(temp_dir, recursive = TRUE)
  return(remote_commit)
}

remote_commit <- get_remote_commit(repo_url, target_branch, gitcred)

# 3. 检查本地已安装包的提交哈希（如果已安装）
local_commit <- NULL
if (requireNamespace(pkg_name, quietly = TRUE)) {
  # 从已安装包的DESCRIPTION中提取Git提交信息
  pkg_desc <- packageDescription(pkg_name)
  local_commit <- pkg_desc$GitSha1
}

# 4. 仅当本地未安装或提交哈希不一致时，执行安装
if (is.null(local_commit) || local_commit != remote_commit) {
  message("检测到包更新，开始安装...")
  remotes::install_git(
    repo_url,
    build_manual = FALSE, build_vignettes = FALSE,
    upgrade = FALSE,
    dependencies = TRUE,
    ref = target_branch, credentials = gitcred)
  renv::snapshot()
} else {
  message("本地包已为最新版本，无需安装")
}

关键说明： #

• 提交哈希对比：通过git2r临时克隆远程分支（仅拉取最新提交，depth=1减少带宽消耗）获取最新提交哈希；再从本地已安装包的DESCRIPTION文件中提取自动写入的GitSha1字段，完成版本一致性校验。
• 临时资源清理：使用临时目录克隆仓库，获取哈希后立即删除，避免冗余文件残留。
• 参数替换：务必将pkg_name替换为你的自定义R包的实际名称。

额外优化建议： #

• 可以将Git凭证改为从环境变量读取（比如Sys.getenv("AZURE_DEVOPS_PAT")），避免硬编码密码，提升安全性。
• 若使用renv管理环境，可结合renv::status()辅助检查，但核心版本控制仍需依赖Git提交哈希——分支名本身无法反映代码的实际变更。

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