在 R 代码中显示 Git 版本

Question

我使用 Git 作为版本控制（目前是集中式工作流程，但我想转向功能分支或 gitflow 工作流程）。我使用 RStudio/Knitr 编译 PDF 文档，并想知道如何在 PDF 中自动包含当前的 Git 版本 - 如果可行？这样，当有人带着我给他们的文件回来找我时，我知道如何回到代码中的那个点。任何建议将不胜感激，谢谢 - Marie。

编辑：关键字是我想到的，尽管根据这篇文章 (gelato.unsw.edu.au/archives/git/0610/28891.html) 不推荐。对帮助脚本有什么建议吗？ – user1420372 刚刚

Answer 1

这样做只是为了展示一个简单粗暴的例子。这是@Wanter Nuata 的主意。

这是一个小小的 knitr 文档：

---
output: pdf_document
---

```{r}
print(system("git rev-parse --short HEAD", intern = TRUE))
```

我在一个新创建的本地 git 存储库中拥有。

当我编织成 PDF 时，我得到了这个：

所以你应该能够使用它来为它生成的 git 提交添加水印。

或者，如果您擅长向项目添加另一个包依赖项，则可以使用 git2r 包：

---
output: pdf_document
---

```{r}
library(git2r)

repo <- repository(".")
print(head(repo))
```

这给出了：

Answer 2

使用 git2r 包的建议非常好。使用更多功能，您可以隔离实际的 SHA。如果感兴趣，您还可以重新调整用途，例如，作者字段以获取文档标题中的 SHA。

这是 R Markdown 文档：

---
title: "Show Git version in R Code"
output: html_document
date: "`r format(Sys.time(), '%d %B, %Y')`"
author: "SHA: `r git2r::branch_target(git2r::head(git2r::repository(getwd())))`"
---

You could also put the SHA elsewhere, like in a concluding chunk along with session info.

```{r collapse = TRUE}
git2r::branch_target(git2r::head(git2r::repository(getwd())))
## ADD devtools::session_info() or sessionInfo() ??
```

这给了