repo <- git_init(tempfile("githug-"))
owd <- setwd(repo)
write("Are these girls real smart or real real lucky?", "max.txt")
git_commit(all = TRUE, message = "first commit")
write("You get what you settle for.", "louise.txt")
git_status()
git_add("louise.txt")
git_status()
git_unstage("louise.txt")
git_status()
setwd(owd)
Run the code above in your browser using DataLab