## ----- echo = false ------------------------------------------------------------------------------------------------------------- knitr::opts_chunk$set( eval=FALSE ) ## ----------------------------------------------------------------------------------------------------------------＃if（！“ rwikipathways”％instastend.packages（））{＃if（！sireseenamespace（“ biocmanager”，seetly = true））＃install.packages（“ biocmanager”）＃biocmanager :: install（“ rwikipathways”）＃}＃library（rwikipathways）＃if（！“ bridgedbr”％in nasterned.packages（））{＃if（！install.packages（“ Biocmanager”）＃Biocmanager :: install（“ BridgedBr”）＃}＃library（bridgedbr）## -------------------------------------------------------------------------------------------------------------------------------------------------------------------------＃orgnames < - listerornisms（）＃orgnames ## ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------＃Bridgedbr :: Getornismcode（Orgnames [1]）## ------------------------------------------------------------------------------------------------------------------------ # BridgeDbR::getSystemCode("Ensembl") ## ----------------------------------------------------------------------------- # BridgeDbR::getSystemCode("Entrez Gene") ## ----------------------------------------------------------------------------- # tnf.pathways <- findPathwayIdsByXref('TNF', BridgeDbR::getSystemCode('HGNC')) # tnf.pathways ## ----------------------------------------------------------------------------- # getXrefList('WP554', BridgeDbR::getSystemCode('Ensembl')) ## ----------------------------------------------------------------------------- # getXrefList('WP554', BridgeDbR::getSystemCode('ChEBI')) ## ----------------------------------------------------------------------------- # BridgeDbR::getFullName('Ce')