## Not run:## Create and initialize a repository in a temporary directorypath <- tempfile(pattern="git2r-")dir.create(path)repo <- 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,"example.txt"))add(repo,"example.txt")commit_1 <- commit(repo,"Commit message 1")## Change file, add 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,"example.txt"))add(repo,"example.txt")commit(repo,"Commit message 2")## HEAD of repository is not detachedis_detached(repo)## Checkout first commitcheckout(commit_1)## HEAD of repository is detachedis_detached(repo)## End(Not run)