#!/bin/sh -e

DATFILE="$1"
NAME=`basename $DATFILE .txt`
project=`echo $NAME | sed 's/^maintainer_per_package_//'`

TEXTCOLOR=${TEXTCOLOR:-"black"}
BGCOLOR=white
OUTPUTFORMAT=pdf

R --no-save >/dev/null <<EOT
dmstats <- read.table(file='$DATFILE', sep = '\t', fill=TRUE, header=TRUE )
textcolor="$TEXTCOLOR"
bgcolor="$BGCOLOR"
if ( "$OUTPUTFORMAT" == "pdf" ) pdf("${NAME}.pdf", fg=textcolor, bg=bgcolor, width=16, height=9) else png("${NAME}.png", width = 800, height = 600)

par(col.axis=textcolor,col.main=textcolor)
plotcolors <- c("blue")
barplot(dmstats\$packages, names.arg=dmstats\$maintainers, beside=TRUE,col=c("blue"))
title(main="Maintainer per package in $project team", cex.main=3/par("cex.main"))

dev.off()
EOT