# # # R代码从装饰图案的HOWTO-BCV来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:HOWTO-BCV。Rnw: 43-45 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(“biocViews”)库(Biobase) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:VocabDefinition # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # vocabFile < -执行(“点/ biocViewsVocab。点”,包=“biocViews”)猫(readline (vocabFile) [1:20], 9 =“\ n”)猫(“\ n”) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 3号代码块:getview # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # (biocViewsVocab) reposPath < -系统数据。文件(“医生”,包=“biocViews”) reposUrl < -粘贴(“文件:/ / reposPath, 9 = " ") biocViews <——getBiocSubViews (reposUrl、biocViewsVocab topTerm =“软件”)打印(biocViews[1:2]) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:listTerms # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # getSubTerms (biocViewsVocab、词汇=“技术”)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:htmlViewsGen # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # viewsDir < - file.path (tempdir (),“biocViews”) dir.create (viewsDir) writeBiocViews (biocViews, dir = viewsDir) dir (viewsDir) [1:2]