# #——包括= FALSE ------------------------------------------------------------ 图书馆(biocViews) # #——建立一个词汇的术语,呼应= TRUE,消息= FALSE,警告= FALSE, vocabFile < -执行(“点/ biocViewsVocab。.. dot"， package="biocViews") cat(readLines(vocabFile)[1:20]， sep="\n") cat("…\n") ## ----查询一个存储库，echo=TRUE, message=FALSE, warning=FALSE----------- data(biocViewsVocab) reposPath <- system. txt)file("doc"， package="biocViews") reposUrl <- paste("file://"， reposPath, sep="") biocViews <- getBiocSubViews(reposUrl, biocViewsVocab, topTerm="Software") print(biocViews[1:2]) ## ----getSubTerms, message=FALSE, warning=FALSE-------------------------------- getSubTerms(biocViewsVocab, term="Technology") ## ----生成HTML, echo=TRUE, message=FALSE, warning=FALSE----------------- viewsDir <- file.path(tempdir()， "biocViews") dir.create(viewsDir) writeBiocViews(biocViews，dir = viewsDir) dir (viewsDir) [1:2]