suppressMessages(library(cacheSweave))
infile <- system.file("example", "simpleRR.Rnw", package = "cacheSweave")
setCacheDir("cache")
Sweave(infile, driver = cacheSweaveDriver)
ls()
## Check to see that objects were properly cached
## Database should contain 'airquality' and 'fit'
dname <- dir("cache", full.names = TRUE)
suppressMessages(library(stashR))
db <- new("localDB", dir = dname[2], name = "cacheDB")
dbList(db)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.