## Not run:## Create a directory in tempdirpath <- tempfile(pattern="git2r-")dir.create(path)## Initialize a repositoryrepo <- init(path)config(repo, user.name ="Alice", user.email ="alice@example.org")## Create a file, add and commitlines <-"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do"writeLines(lines, file.path(path,"test.txt"))add(repo,"test.txt")commit(repo,"First commit message")# Change file and commitlines <- c("Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do","eiusmod tempor incididunt ut labore et dolore magna aliqua.")writeLines(lines, file.path(path,"test.txt"))add(repo,"test.txt")commit(repo,"Second commit message")revparse_single(repo,"HEAD^")revparse_single(repo,"HEAD:test.txt")## End(Not run)