Mostra versione Git in codice R

Question

Sto usando Git come controllo di versione (attualmente il flusso di lavoro centralizzato, ma mi piacerebbe passare al flusso di lavoro di feature o gitflow). Uso RStudio/Knitr per compilare documenti PDF e vorrei sapere come posso includere automaticamente la versione Git corrente nel PDF - se funziona? In questo modo, quando qualcuno torna da me con un documento che ho dato loro, so come tornare a quel punto nel codice. Ogni suggerimento sarà molto apprezzato, grazie - Marie.

Modifica: le parole chiave sono ciò che avevo in mente, sebbene in base a questo post (gelato.unsw.edu.au/archives/git/0610/28891.html) non raccomandato. Ci sono raccomandazioni sugli script di supporto? - user1420372 solo ora

Answer 1

Fare questo solo per presentare un esempio di zuppa-a-dadi. E 'stata l'idea di @Wanter Nuata.

Ecco una piccola doc knitr:

--- 
output: pdf_document 
--- 

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

che ho in un repo git locale appena creata.

Quando ho maglia in PDF ottengo questo:

così si dovrebbe essere in grado di utilizzare questo per watermarking il git commit è stato generato da.

In alternativa, se sei bravo con l'aggiunta di un altro pacchetto di dipendenza ai vostri progetti, è possibile utilizzare il pacchetto git2r:

--- 
output: pdf_document 
--- 

```{r} 
library(git2r) 

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

che dà:

Answer 2

Il suggerimento da usare il pacchetto git2r è davvero buono. Con poche altre funzioni, è possibile isolare lo SHA effettivo. Puoi anche riutilizzare, ad esempio, il campo Autore per ottenere lo SHA nell'intestazione del documento, se questo è interessante.

Ecco il documento 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() ?? 
``` 

che dà