Greps the tid from the given identifier string
grepTid(id)
id
Given identifier string
tid string
tid <- grepTid("ti|367928|org|Bifidobacterium_adolescentis_ATCC_15703")