data.R

data.R

# R file template in Template-Toolkit 

w_avg   <- c( [% weight_average %] )
date    <- c( [% dates %] )
w_count <- c( [% measurement_count %] )
weight  <- c( [% weight %] )

png(
    filename="data.png" ,
    width = 600 ,
    height = 400 ,
    pointsize = 12 
    )
plot (
    weight ,
    col="red" ,
    name="Weight Record - [% name %]" ,
    type="o" ,
    xlab="time" ,
    ylab="weight in lbs" 
    )
lines(
    w_avg ,
    col="blue",
    type="o"
    )
dev.off()