# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #块1号:# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(“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词=“AssayTechnologies”) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #块数量5:htmlViewsGen # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # viewsDir < - file.path (tempdir (),“biocViews”) dir.create (viewsDir) writeBiocViews (biocViews, dir = viewsDir) dir (viewsDir) [1:2]