## ----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 ##写书目信息写。bibtex(c(knitcitations = citation('knitcitations')， derfinder = citation('derfinder')[1]， knitrBootstrap = citation('knitrBootstrap')， knitr = citation('knitr')[3]， rmarkdown = citation('rmarkdown'))， file = 'derfinderRef.bib') bib <- read.bibtex('derfinderRef.bib') ##指定短名称names(bib) <- c('knitcitations'， 'derfinder'， 'knitrBootstrap'， 'knitr'， 'rmarkdown') ## ----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('derfinderAdvanced. time ')Rmd'， chooser=c('boot'， 'code')， show_code = TRUE)) # unlink(' derfinderd .md') #} else {## # GitHub version # library('rmarkdown') # system.time(render('derfinderAdvanced. md')注意:如果你更喜欢使用knitr版本，请使用:## library('rmarkdown') ## system.time(render('derfinderAdvanced. bat '))Rmd'， 'html_document')) ## ##提取R代码# library('knitr') # knit('derfinderAdvanced. dll ')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 -------------------------- ## 打印书目书目()