repo <- git_init(tempfile("githug-"))
owd <- setwd(repo)
write("Are these girls real smart or real real lucky?", "max.txt")
write("You get what you settle for.", "louise.txt")
git_commit(all = TRUE,
message = "Brains'll only get you so far and luck always runs out.")
write("If done properly armed robbery doesn't have to be a totally unpleasant experience.",
"jd.txt")
git_commit("jd.txt", message = "J.D. is charming")
## refer to these commits
as.git_commit("HEAD")
as.git_commit("HEAD^")
as.git_commit("master~1")
setwd(owd)
Run the code above in your browser using DataLab