# #——风格,回声= FALSE,结果= '飞机 '------------------------------- BiocStyle:减价 () ## ---- 回声= FALSE,结果= "隐藏 "----------------------------------------- 库(knitr) opts_chunk美元集(错误= FALSE ) ## ---- exampleInpProcessing ----------------------------------------------- makeinparanoid8ToAHMs < -函数(currentMetadata) {baseUrl < - http://inparanoid.sbc.su。在辅助函数meta <- . in妄想metadatafromurl (baseUrl) ##然后制作AnnotationHubMetadata对象。Map(AnnotationHubMetadata, Description=元$ Description, Genome=元$ Genome, SourceFile=元$ SourceFile, SourceUrl=元$ SourceUrl, SourceVersion=元$ SourceVersion, Species=元$ Species, TaxonomyId=元$ TaxonomyId, Title=元$ Title, RDataPath=元$ RDataPath, MoreArgs=list(Coordinate_1_based = TRUE, DataProvider = baseUrl, Maintainer = "Marc Carlson "， RDataClass = "SQLiteFile"， RDataDateAdded = Sys.time()， RDataVersion = "0.0.1"， Recipe = "AnnotationHubData::: Inparanoid 8todbsrecipe "， Tags = c("Inparanoid"， "Gene"， "Homology"， "Annotation")))} ## ---- exampleRecipe------------------------------------------------------ Inparanoid 8todbsrecipe <- function(ahm){require(AnnotationForge) inputFiles <- metadata(ahm)$SourceFile dbname <- makeInpDb(dir=file.path(inputFiles，"")，dataDir = tempdir ()) db < - loadDb(文件)= dbname outputPath < - file.path(元数据(ahm) AnnotationHubRoot美元,元数据(ahm) RDataPath美元)saveDb(数据库、文件= outputPath) outputFile(阿 ) } ## ---- eval = FALSE ---------------------------------------------------------- # setClass(“BEDFileResource”,包含=“AnnotationHubResource”)# # setMethod(”。get1”、“BEDFileResource”,#函数(x , ...) # { # . 要求(“rtracklayer”)# yy < - .hub (x) # dat < - rtracklayer:: BEDFile(缓存(yy)) # rtracklayer::导入(dat格式=“床”,基因组= yy $基因组 , ...) # }) ## ---- SessionInfo,回声= FALSE -------------------------------------------- sessionInfo ()