## Not run:## Initialize a temporary repositorypath <- tempfile(pattern="git2r-")dir.create(path)repo <- init(path)## Create a user and commit a fileconfig(repo, user.name ="Alice", user.email ="alice@example.org")writeLines("First line.", file.path(path,"example.txt"))add(repo,"example.txt")commit_1 <- commit(repo,"First commit message")## commit_1 has no parentsparents(commit_1)## Update 'example.txt' and commitwriteLines(c("First line.","Second line."), file.path(path,"example.txt"))add(repo,"example.txt")commit_2 <- commit(repo,"Second commit message")## commit_2 has commit_1 as parentparents(commit_2)## End(Not run)