svn_commits_per_package.R

library(xml2)

date <- "2015-04-17"
tmp <- tempfile()
system2("svn",
        args = c("log",
                 "-r", sprintf("{%s}:HEAD", date),
                 "--xml",
                 "-v"),
        stdout = tmp)
commits <- read_xml(tmp)
unlink(tmp)

# number of total commits
xml_length(commits)

# files touched for each commit
files <- lapply(as_list(xml_children(commits)),
                function(x) xml_text(xml_find_all(x, ".//path[@kind='file']")))

# packages changed for each commit
packages <- lapply(files, function(x)
                   unique(gsub(x,
                               pattern = "/trunk/madman/Rpacks/([^/]+).*",
                               replacement = "\\1")))

# commits per package
table(unlist(packages))