## ----eval=FALSE---------------------------------------------------------------
# library(BridgeDbR)

## ----eval=FALSE---------------------------------------------------------------
# sec2pri = BridgeDbR::loadDatabase("ChEBI_secID2priID.bridge")

## ----eval=FALSE---------------------------------------------------------------
# BridgeDbR::map(sec2pri, source="Ce", identifier="CHEBI:1234")

## ----eval=FALSE---------------------------------------------------------------
# mappedIDs = BridgeDbR::map(sec2pri, source="Ce", identifier="CHEBI:1234")
# mappedIDs[intersect(which(mappedIDs[,"target"] == "Ce"),which(mappedIDs[,"isPrimary"] == "T")),]

## ----sessionInfo, echo=FALSE--------------------------------------------------
sessionInfo()