# NOT RUN {
namesText<-c(
"1\t|\tall\t|\t\t|\tsynonym\t|",
"1\t|\troot\t|\t\t|\tscientific name\t|",
"3\t|\tMulti\t|\tBacteria <prokaryotes>\t|\tscientific name\t|",
"4\t|\tMulti\t|\tBacteria <prokaryotes>\t|\tscientific name\t|",
"2\t|\tBacteria\t|\tBacteria <prokaryotes>\t|\tscientific name\t|",
"2\t|\tMonera\t|\tMonera <Bacteria>\t|\tin-part\t|",
"2\t|\tProcaryotae\t|\tProcaryotae <Bacteria>\t|\tin-part\t|"
)
names<-read.names(textConnection(namesText))
getId('Bacteria',names)
getId('Not a real name',names)
getId('Multi',names)
# }
Run the code above in your browser using DataLab