## Not run:## Initialize a repositorypath <- tempfile(pattern="git2r-")dir.create(path)repo <- init(path)is_bare(repo)## Initialize a bare repositorypath_bare <- tempfile(pattern="git2r-")dir.create(path_bare)repo_bare <- init(path_bare, bare =TRUE)is_bare(repo_bare)## End(Not run)