## Not run:## Initialize a repositorypath <- tempfile(pattern="git2r-")dir.create(path)repo <- init(path)## Config userconfig(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,"example.txt"))add(repo,"example.txt")commit(repo,"First commit message")## Get last commitlast_commit(repo)last_commit(path)## Coerce the last commit to a data.frameas.data.frame(last_commit(path),"data.frame")## Summary of last commit in repositorysummary(last_commit(repo))## End(Not run)