git_branch object or NULL if no remote tracking branch.
Examples
## Not run:## Initialize two temporary repositoriespath_bare <- tempfile(pattern="git2r-")path_repo <- tempfile(pattern="git2r-")dir.create(path_bare)dir.create(path_repo)repo_bare <- init(path_bare, bare =TRUE)repo <- clone(path_bare, path_repo)## Config user and commit a fileconfig(repo, user.name ="Alice", user.email ="alice@example.org")## Write to a file and commitlines <-"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do"writeLines(lines, file.path(path_repo,"example.txt"))add(repo,"example.txt")commit(repo,"First commit message")## Push commits from repository to bare repository## Adds an upstream tracking branch to branch 'master'push(repo,"origin","refs/heads/master")#branch_get_upstream(repository_head(repo))## End(Not run)