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"]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.