###################################################
### chunk number 1: basicProc
###################################################
#line 119 "vignettes/weaver/inst/doc/weaver_howTo.Rnw"
library("weaver")
testDocPath <- system.file("extdata/doc1.Rnw", package="weaver")
curDir <- getwd()
setwd(tempdir())
z <- capture.output(Sweave(testDocPath, driver=weaver()), 
                    file=tempfile())
setwd(curDir)


###################################################
### chunk number 2: another
###################################################
#line 138 "vignettes/weaver/inst/doc/weaver_howTo.Rnw"
testDocPath <- system.file("extdata/doc2.Rnw", package="weaver")
curDir <- getwd()
setwd(tempdir())
z <- capture.output(Sweave(testDocPath, driver=weaver()), 
                    file=tempfile())
setwd(curDir)


###################################################
### chunk number 3: again
###################################################
#line 150 "vignettes/weaver/inst/doc/weaver_howTo.Rnw"
testDocPath <- system.file("extdata/doc1.Rnw", package="weaver")
curDir <- getwd()
setwd(tempdir())
z <- capture.output(Sweave(testDocPath, driver=weaver()), 
                    file=tempfile())
setwd(curDir)


###################################################
### chunk number 4: sessionInfo
###################################################
#line 192 "vignettes/weaver/inst/doc/weaver_howTo.Rnw"
toLatex(sessionInfo())