Pokaż wersję Git w kodzie R

Question

Używam Git jako formantu wersji (obecnie scentralizowanego przepływu pracy, ale chciałbym przejść do gałęzi funkcji lub przepływu pracy gitflow). Używam RStudio/Knitr do kompilowania dokumentów PDF i chciałbym wiedzieć, w jaki sposób mogę automatycznie włączyć obecną wersję Git do pliku PDF - jeśli to działa? W ten sposób, gdy ktoś wróci do mnie z dokumentem, który im podałem, wiem, jak wrócić do tego punktu w kodzie. Wszelkie sugestie będą mile widziane, dziękuję - Marie.

Edycja: Słowa kluczowe to to, co miałem na myśli, chociaż zgodnie z tym postem (gelato.unsw.edu.au/archives/git/0610/28891.html) niezalecane. Czy są jakieś zalecenia dotyczące skryptów pomocniczych? - user1420372 już teraz

Answer 1

Robimy to tylko po to, aby przedstawić przykład zupy do orzechów. To był pomysł Wantera Nuaty.

Oto drobny knitr doc:

--- 
output: pdf_document 
--- 

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

że mam w świeżo utworzonego lokalnego repo git.

Kiedy drutach PDF uzyskać to:

więc powinieneś być w stanie korzystać z tego za znak wodny git commit był generowany.

Alternatywnie, jeśli jesteś dobry z dodaniem kolejnego uzależnienia pakiet do swoich projektów, można skorzystać z pakietu git2r:

--- 
output: pdf_document 
--- 

```{r} 
library(git2r) 

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

co daje:

Answer 2

Sugestia używać pakiet git2r jest naprawdę dobry. Dzięki kilku dodatkowym funkcjom możesz wyizolować rzeczywisty SHA. Możesz również zmienić przeznaczenie, np. Pole Autor, aby uzyskać SHA w nagłówku dokumentu, jeśli jest to interesujące.

Oto dokument 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() ?? 
``` 

Który daje