timings/invoke_time-income_tax.R

In HughParsonage/grattan: Australian Tax Policy Analysis

library(data.table)
setwd("..")
income_tax_commits <- system('git log --follow R/income_tax.R', intern = TRUE)
setwd("timings")

commits_all <- 
  data.table(Date = anytime::anytime(sub("Date:\\s+", "", 
                                         income_tax_commits[startsWith(income_tax_commits, "Date:")])),
             commit = sub("commit ", "", income_tax_commits[startsWith(income_tax_commits, "commit")]))
commits <- commits_all[Date > "2018-05-07"]

for (i in 1:nrow(commits)) {
  c <- commits[i][["commit"]]
  cat(commits[i][["Date"]], "\n")
  system(sprintf('Rscript time-income_tax.R %s', c), intern = TRUE)
}

if (FALSE) {
  timings <- 
    lapply(dir(pattern = "^income-tax.*[tc]sv$"),
           fread) %>%
    rbindlist(use.names = TRUE, fill = TRUE) %>%
    .[commits_all, on = "commit"]
}