library(dplyr)
exampleRepoDir <- tempdir()
createEmptyRepo( exampleRepoDir )
data(mtcars)
hash <- mtcars %.%
 group_by(cyl, am) %.%
 select(mpg, cyl, wt, am) %.%
 summarise(avgmpg = mean(mpg), avgwt = mean(wt)) %.%
 filter(avgmpg > 20) %>%
 saveToRepo( exampleRepoDir )
getTagsLocal( md5hash = hash, exampleRepoDir )
deleteRepo( exampleRepoDir )
rm( exampleRepoDir )
getTagsGithub( "3db63bc63b8defaf42c0bde19160f242",
   user="pbiecek", repo="archivist")
# many archivist-like Repositories on one Github repository
getTagsGithub("ff575c261c949d073b2895b05d1097c3", user="MarcinKosinski",
repo="Museum", branch="master", repoDirGit="ex1")Run the code above in your browser using DataLab