cmdcolin · May 23, 2025 14:56 · cmdcolin · Mar 16, 2024 · cmdcolin · May 23, 2025
diff --git a/gather_commits.sh b/gather_commits.sh
 #!/usr/bin/env bash

 ## uses home directory to avoid git clean in repo clearing files
 touch ~/lines

 ## choice 1. for all commits
 git log --pretty=format:'%h %as'|sed 's/ /\t/' >! ~/commitlog

 ## choice 2. for all tags
 git for-each-ref --sort=creatordate --format '%(refname) %(creatordate:short)' refs/tags|sed -e 's/refs\/tags\///'|sed 's/ /\t/' >! ~/commitlog

 ## note: don't have any unsaved work in your repo, this does a HARD clean of all gitignored files, everything, at each iteration
 cut -f1 ~/commitlog | while read p; do 
  echo $p; git checkout $p; 
  git clean -fdx; 
  tokei --output json | jq --raw-output '[.TSX.code, .TypeScript.code, .JavaScript.code] | @tsv' >> ~/lines;
 done

 paste ~/lines ~/commitlog > ~/table.tsv

 Rscript ~/plot.R
diff --git a/plot.R b/plot.R
 #!/usr/bin/env Rscript
 library(reshape2)
 library(ggplot2)
 library(lubridate)
 library(dplyr)
 x <- read.table("table.tsv", sep = "\t")
 colnames(x) <- c("ts", "tsx", "js", "commit", "date")
 # https://stackoverflow.com/a/61723672/2129219 replace NA with 0
 x <- x %>% replace(is.na(.), 0)
 x$total <- x$js + x$ts + x$tsx
 x$date <- ymd(x$date)
 y <- melt(x, id = c("date", "commit"))

 ggplot(y, aes(x = date, y = value, group = variable)) +
  geom_line(aes(color = variable)) +
  ggtitle("Lines of code in JBrowse 2")

 ggsave("out.png", width = 15, height = 8)
	#!/usr/bin/env bash

	## uses home directory to avoid git clean in repo clearing files
	touch ~/lines

	## choice 1. for all commits
	git log --pretty=format:'%h %as'\|sed 's/ /\t/' >! ~/commitlog

	## choice 2. for all tags
	git for-each-ref --sort=creatordate --format '%(refname) %(creatordate:short)' refs/tags\|sed -e 's/refs\/tags\///'\|sed 's/ /\t/' >! ~/commitlog

	## note: don't have any unsaved work in your repo, this does a HARD clean of all gitignored files, everything, at each iteration
	cut -f1 ~/commitlog \| while read p; do
	echo $p; git checkout $p;
	git clean -fdx;
	tokei --output json \| jq --raw-output '[.TSX.code, .TypeScript.code, .JavaScript.code] \| @tsv' >> ~/lines;
	done

	paste ~/lines ~/commitlog > ~/table.tsv

	Rscript ~/plot.R
	#!/usr/bin/env Rscript
	library(reshape2)
	library(ggplot2)
	library(lubridate)
	library(dplyr)
	x <- read.table("table.tsv", sep = "\t")
	colnames(x) <- c("ts", "tsx", "js", "commit", "date")
	# https://stackoverflow.com/a/61723672/2129219 replace NA with 0
	x <- x %>% replace(is.na(.), 0)
	x$total <- x$js + x$ts + x$tsx
	x$date <- ymd(x$date)
	y <- melt(x, id = c("date", "commit"))

	ggplot(y, aes(x = date, y = value, group = variable)) +
	geom_line(aes(color = variable)) +
	ggtitle("Lines of code in JBrowse 2")

	ggsave("out.png", width = 15, height = 8)