### R代码从vignette源的weaver_howTo。Rnw ' ################################################### ### 代码块1号:basicProc ################################################### 库(“编织”)testDocPath < -执行(“extdata / doc1。Rnw"， package="weaver") curDir <- getwd() setwd(tempdir()) z <- capture。输出(Sweave (testDocPath司机=韦弗()),文件= tempfile ()) setwd (curDir ) ################################################### ### 代码块2号:另一个 ################################################### testDocPath < -执行(“extdata / doc2。Rnw"， package="weaver") curDir <- getwd() setwd(tempdir()) z <- capture。输出(Sweave (testDocPath司机=韦弗()),文件= tempfile ()) setwd (curDir ) ################################################### ### 代码块3号: ################################################### testDocPath < -执行(“extdata / doc1。Rnw"， package="weaver") curDir <- getwd() setwd(tempdir()) z <- capture。输出(Sweave (testDocPath司机=韦弗()),文件= tempfile ()) setwd (curDir ) ################################################### ### 代码块数量4:sessionInfo ################################################### toLatex (sessionInfo ())