use knitr caching

diff --git a/kinetic_formalism.Rnw b/kinetic_formalism.Rnw
index d38a2313074ae66c3f532a317b78f5df4f4d3f72..fccc4af7c3a6eb4be8a85ab899b553b8453d4e8c 100644 (file)
--- a/kinetic_formalism.Rnw
+++ b/kinetic_formalism.Rnw
@@ -59,11 +59,19 @@
 \begin{document}
 %\maketitle
 
-<<results="hide",echo=FALSE>>=
-require(lattice)
-require(grid)
-require(Hmisc)
-require(gridBase)
+<<load_libraries,results="hide",message=FALSE,warning=FALSE,echo=FALSE>>=
+require("lattice")
+require("grid")
+require("Hmisc")
+require("gridBase")
+opts_chunk$set(dev="cairo_pdf",
+                  out.width="0.8\\textwidth",
+                  out.height="0.8\\textheight",
+                  out.extra="keepaspectratio")
+opts_chunk$set(cache=TRUE, autodep=TRUE)
+options(device = function(file, width = 6, height = 6, ...) {
+            cairo_pdf(tempfile(), width = width, height = height, ...)
+        })
 to.latex <- function(x){
   gsub("\\\\","\\\\\\\\",latexSN(x))
 }