gert

gert is a simple git client based on ‘libgit2’ (libgit2.org):

libgit2 is a portable, pure C implementation of the Git core methods provided as a re-entrant linkable library with a solid API, allowing you to write native speed custom Git applications in any language which supports C bindings.

What this means for R users is that we can work with local and remote Git repositories from the comfort of R!

User-friendly authentication is a high priority for gert, which supports both SSH and HTTPS remotes on all platforms. User credentials are shared with command line Git through the git-credential store and ssh keys stored on disk or ssh-agent.

Let’s attach gert.

library(gert)
#> Linking to libgit2 v1.4.3, ssh support: YES
#> Global config: /Users/jeroen/.gitconfig
#> Default user: Jeroen Ooms <jeroenooms@gmail.com>

Introduce yourself to Git

Before you can do anything with Git, you must first configure your user name and email. When you attach gert, it actually reveals whether you’ve already done this and, above, you can see that we have.

But what if you have not already configured your user name and email? Do this with git_config_global_set():

git_config_global_set("user.name", "Jerry Johnson")
git_config_global_set("user.email", "jerry@gmail.com")

We can verify our success (and see all global options) with git_config_global().

git_config_global()
#>          name                value  level
#> 1   user.name          Jeroen Ooms global
#> 2  user.email jeroenooms@gmail.com global
#> 3 pull.rebase                 true global

This is equivalent to these commands in command line Git:

git config --global user.name 'Jerry Johnson'
git config --global user.email 'jerry@gmail.com'
git config --global --list

To inspect and change local Git config, i.e. options specific to one repository, use git_config() and git_config_set().

Local repository basics

gert::git_init() is essentially git init; it’s how we create a new local repository. You provide the path to the repository you want to create.

(path <- file.path(tempdir(), "aaa", "bbb", "repo_ccc"))
#> [1] "/var/folders/l5/gk7g18z52876d4lbk9tjhr0c0000gn/T//Rtmpswjjja/aaa/bbb/repo_ccc"
dir.exists(path)
#> [1] FALSE

(r <- git_init(path))
#> [1] "/private/var/folders/l5/gk7g18z52876d4lbk9tjhr0c0000gn/T/Rtmpswjjja/aaa/bbb/repo_ccc/"
dir.exists(path)
#> [1] TRUE

Note that all non-existing parts of the path are created: aaa, bbb, and repo_ccc (the actual git repository).

git_find() finds a git repository at or above the path you provide and errors otherwise.

git_find(r)
#> [1] "/private/var/folders/l5/gk7g18z52876d4lbk9tjhr0c0000gn/T/Rtmpswjjja/aaa/bbb/repo_ccc"

dir.create(file.path(r, "child_dir"))
git_find(file.path(r, "child_dir"))
#> [1] "/private/var/folders/l5/gk7g18z52876d4lbk9tjhr0c0000gn/T/Rtmpswjjja/aaa/bbb/repo_ccc"

git_find(file.path(tempdir(), "aaa", "bbb"))
#> Error in libgit2::git_repository_discover: could not find repository from '/private/var/folders/l5/gk7g18z52876d4lbk9tjhr0c0000gn/T/Rtmpswjjja/aaa/bbb'

git_init() can also create a repository in a pre-existing directory, as long as it is empty.

r2 <- file.path(tempdir(), "repo_ddd")
dir.create(r2)

git_init(r2)

Cleanup.

unlink(r, recursive = TRUE)
unlink(r2, recursive = TRUE)