ASCII plot

asciiplot.sh

usage(){
  echo "Usage: $(basename $0) [-c <cols>] [-r <rows>] [-p <pch>]"
  exit 2
}

cols=50
rows=20
pch="*"
while getopts "c:r:p:h" option; do
  case "$option" in
    c) cols=$OPTARG;;
    r) rows=$OPTARG;;
    p) pch=$OPTARG;;
    h) usage;;
    *) usage;;
  esac
done

lines=""
while read line
do
  test -z "$lines" && lines="$line" || lines="$lines,$line"
done

echo "
source('http://biostatmatt.com/R/scat.R')
scat(c($lines), cols=$cols, rows=$rows, pch='$pch')
" | R --vanilla | tail -$((rows + 5)) | head -$((rows + 3))