## ----设置，包括= false --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------Knitr :: opts_chunk $ set（collapse = true，comment =“＃>”，crop = null ##与https://stat..ch/pipermail/pipermail/bioc-devel/2020-april/0166656.html）## ----- vignettesetup，echo = false，message = false，警告= false ---------------------------------------------------------------------------------------------------------------------------------------------- ##曲目花费在制作Vignette Starttime <-Sys.time（）## BIB Setup库（”refmanager”）##写参考书目信息bib <-c（r = citation（），biocStyle = citation（“ biocstyle”）[1]，biocThis = citation = citation（“ biocthis”）[1]，covr = citation（coittion（“ covr”））[1]，devtools =引用（“ devtools”）[1]，fs = citation（“ fs”）[1]，胶= citation（“ glue”）[1]，knitr = citation = citation（“ knitr”）[）[1]，pkgdown =引用（“ pkgdown”）[1]，rlang = citation（“ rlang”）[1]，refmanager = citation（“ refmanager”）[1]，rmarkDown = citation = citation（“ rmarkDown”）[1] [1] [1]，sessioninfo = citation（“ sessioninfo”）[1]，styler = citation（“ styler”）[1]，testthat =引用（“ testthat”）[1]，usethis = citation（“ usethis”）[1]）## --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ##使用以下内容作为最新选项＃bioccheck :: usage（）＃##禁用格式检查＃bioccheck :: bioccheck（``-no-check-formatting` = true）## ---- createVignette，eval = false --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------＃##创建Vignette＃library（“ rmarkDown”）＃system.time（render（“ biocthis_dev_notes.rmd”，“ biocStyle :: html_document”））＃＃##＃＃##提取R代码＃库＃库（knitr“）＃knit（“ biocthis_dev_notes.rmd”，tangle = true）## -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ##日期生成sys.time（）## ----复制2，echo = false --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ## Processing time in seconds totalTime <- diff(c(startTime, Sys.time())) round(totalTime, digits = 3) ## ----reproduce3, echo=FALSE------------------------------------------------------------------------------------------- ## Session info library("sessioninfo") options(width = 120) session_info() ## ----vignetteBiblio, results = 'asis', echo = FALSE, warning = FALSE, message = FALSE--------------------------------- ## Print bibliography PrintBibliography(bib, .opts = list(hyperlink = "to.doc", style = "html"))