if (FALSE) {
## Initialize repository
path <- tempfile()
dir.create(path)
path <- file.path(path, "git2r")
repo <- clone("https://github.com/ropensci/git2r.git", path)
## Bundle bare repository in package
bundle_r_package(repo)
## Build and install bundled package
wd <- setwd(dirname(path))
system(sprintf("R CMD build %s", path))
pkg <- list.files(".", pattern = "[.]tar[.]gz$")
system(sprintf("R CMD INSTALL %s", pkg))
setwd(wd)
## Reload package
detach("package:git2r", unload = TRUE)
library(git2r)
## Summarize last five commits of bundled repo
repo <- repository(system.file("git2r.git", package = "git2r"))
invisible(lapply(commits(repo, n = 5), summary))
## Plot content of bundled repo
plot(repo)
}
Run the code above in your browser using DataLab