## Not run:## Initialize a temporary repositorypath <- tempfile(pattern="git2r-")dir.create(path)repo <- init(path)## Create a userconfig(repo, user.name ="Alice", user.email ="alice@example.org")## Commit a text filewriteLines("Hello world!", file.path(path,"example.txt"))add(repo,"example.txt")commit_1 <- commit(repo,"First commit message")blob_1 <- tree(commit_1)["example.txt"]## Get length in size of bytes of the content of the bloblength(blob_1)## End(Not run)