tests/reg-tests.R

   1 suppressMessages(library(cacheSweave))
   2
   3 infile <- system.file("example", "simpleRR.Rnw", package = "cacheSweave")
   4
   5 setCacheDir("cache")
   6
   7 Sweave(infile, driver = cacheSweaveDriver)
   8
   9 ls()
  10
  11
  12 ## Check to see that objects were properly cached
  13 ## Database should contain 'airquality' and 'fit'
  14
  15 dname <- dir("cache", full.names = TRUE)
  16 suppressMessages(library(stashR))
  17 db <- new("localDB", dir = dname, name = "cacheDB")
  18 dbList(db)