11 git_branch <- function(repo = '.'){  argument
12   repo <- git_open(repo)
13   .Call(R_git_branch_current, repo)
19 git_branch_list <- function(local = NULL, repo = '.'){  argument
20   repo <- git_open(repo)
22   .Call(R_git_branch_list, repo, local)
30 git_branch_checkout <- function(branch, force = FALSE, repo = '.'){  argument
31   repo <- git_open(repo)
34   if(!git_branch_exists(branch, repo = repo)){
35     all_branches <- subset(git_branch_list(repo = repo), local == FALSE)$name
44       git_branch_create(branch, remote_branch, checkout = FALSE, repo = repo)
47   .Call(R_git_checkout_branch, repo, branch, force)
55 git_branch_create <- function(branch, ref = "HEAD", checkout = TRUE, repo = '.'){  argument
56   repo <- git_open(repo)
60   invisible(.Call(R_git_create_branch, repo, branch, ref, checkout))
66 git_branch_delete <- function(branch, repo = '.'){  argument
67   repo <- git_open(repo)
69   .Call(R_git_delete_branch, repo, branch)
70   git_repo_path(repo)
75 git_branch_fast_forward <- function(ref, repo = '.'){  argument
76   analysis <- git_merge_analysis(ref = ref, repo = repo)
79   git_branch_set_target(ref = ref, repo = repo)
86 git_branch_set_upstream <- function(upstream, branch = git_branch(repo), repo = '.'){  argument
87   repo <- git_open(repo)
89   if(!git_branch_exists(upstream, local = FALSE, repo = repo))
91   .Call(R_git_branch_set_upstream, repo, upstream, branch)
92   git_repo_path(repo)
100 git_branch_exists <- function(branch, local = TRUE, repo = '.'){  argument
101   repo <- git_open(repo)
104   .Call(R_git_branch_exists, repo, branch, local)
108 git_branch_set_target <- function(ref, branch, repo){  argument
109   repo <- git_open(repo)
111   .Call(R_git_branch_set_target, repo, ref)
112   git_repo_path(repo)