## ----vignetteSetup, echo=FALSE, message=FALSE, warning =FALSE ----------- ##跟踪时间花在制作小装饰startTime <- Sys.time() ## Bib设置库('knitcitations') ##加载针织引用与一个清洁的书目cleanbib() cite_options(hyperlink = 'to.doc'， citation_format = 'text'， style = 'html') #注意链接将不显示现在由于以下问题# https://github.com/cboettig/knitcitations/issues/63 ##写书目信息写。助理型(c (knitcitations =引文(“knitcitations”),derfinder =引文(“derfinder”)[1],knitrBootstrap =引文(“knitrBootstrap”),knitr =引文(“knitr”)[3],rmarkdown =引文(rmarkdown)),文件= derfinderRef.bib)围涎< - read.bibtex (derfinderRef.bib) # #分配短名称名称(龙头)< - c(‘knitcitations’,‘derfinder’,‘knitrBootstrap’,‘knitr’,‘rmarkdown ') ## ------------------------------------------------------------------------ 图书馆(“derfinderData ') ## ---- createVignette,eval = FALSE, bootstrap.show。code=FALSE--------------- ## #创建vignette # library('knitrBootstrap') ## knitrBootstrapFlag <- packageVersion('knitrBootstrap') < '1.0.0' # if(knitrBootstrapFlag) {## CRAN version # library('knitrBootstrap') # system.time(knit_bootstrap('derfinder. time ')Rmd'， chooser=c('boot'， 'code')， show_code = TRUE)) # unlink('derfinder.md') #} else {## # GitHub version # library('rmarkdown') # system.time(render('derfinder. md')注意:如果你更喜欢knitr版本，请使用:## library('rmarkdown') ## system.time(render('derfinder. document'))Rmd'， 'html_document')) ## ##提取R代码# library('knitr') # knit('derfinder. txt ')Rmd'， tangle = TRUE) ## ----再现性1,echo=FALSE, bootstrap.show。code=FALSE------------- ##小插图生成的日期Sys.time() ## ----reproducibility2, echo=FALSE, bootstrap.show。code=FALSE------------- ##处理时间，以秒为单位totalTime <- diff(c(startTime, Sys.time())) round(totalTime, digits=3) ## ----reproducibility3, echo=FALSE, bootboot .show. code=FALSE。代码= FALSE, bootstrap.show。消息= FALSE——# #(“devtools”)session_info会话信息图书馆 () ## ---- vignetteBiblio,结果=“黑名单”,回声= FALSE -------------------------- ## 打印书目书目()