#!/bin/bash
Val=
Name=
while IFS="," read name val
do
        if [ -z "$Name" ];
        then
                Name=\""$name"\"
        else
                Name=$Name,\""$name"\"
        fi
        if [ -z "$Val" ];
        then
                Val=$val
        else
                Val="$Val, $val"
        fi
done < $1

echo "# 3D Exploded Pie Chart
library(plotrix)
slices <- c($Val)
lbls <- c($Name)
pct <- round(slices/sum(slices)*100)
lbls <- paste(lbls, pct) # add percents to labels
lbls <- paste(lbls,\"%\",sep=\"\") # ad % to labels
pie3D(slices,labels=lbls,explode=0.1,
main=\"Storage Profiler \")" > disk.r
/cygdrive/c/Program\ Files/R/R-2.12.2/bin/rscript.exe disk.r

$ buildgraph.sh mydoc.csv