%.Rhtml : %.xml
	# Escape HTML entities in R code chunks
	Rscript -e 't <- readLines("$*.xml"); writeLines(gsub(" <(-?) ", " &lt;\\1 ", gsub(" & ", "&amp;", gsub(" && ", " &amp;&amp; ", t))), "$*-mod.xml")'
	# Transform to .Rhtml
	xsltproc knitr.xsl $*-mod.xml > $*.Rhtml

%.html : %.Rhtml
	# Use knitr to produce HTML
	Rscript -e 'library(knitr); knit("$<")'

web:
	cp cpi.html ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp -r figure/ ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp cpi-data-vis-2006-15Q4.csv ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp cpi.xml ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp cpi-mod.xml ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp cpi.Rhtml ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp Makefile ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp knitr.xsl ~/Web/Reports/OpenAPI/CPI/WebPage/
	cp common.xsl ~/Web/Reports/OpenAPI/CPI/WebPage/