
all:
	make slides
	make exercises

slides:
	# Escape HTML entities
	Rscript -e 't <- readLines("grid.html"); writeLines(gsub(" <(-?) ", " &lt;\\1 ", gsub(" & ", "&amp;", gsub(" && ", " &amp;&amp; ", t))), "grid-mod.html")'
	xsltproc knitr.xsl grid-mod.html > ../Slides/grid-slides.Rhtml
	Rscript -e 'setwd("../Slides"); library(knitr); knit("grid-slides.Rhtml")'

exercises:
	xsltproc exercise.xsl grid-mod.html > grid-exercises.R
	xsltproc modelanswer.xsl grid-mod.html > grid-answers.R
