namesText<-c(
"1\t|\tall\t|\t\t|\tsynonym\t|",
"1\t|\troot\t|\t\t|\tscientific name\t|",
"2\t|\tBacteria\t|\tBacteria \t|\tscientific name\t|",
"2\t|\tMonera\t|\tMonera \t|\tin-part\t|",
"2\t|\tProcaryotae\t|\tProcaryotae \t|\tin-part\t|"
)
tmpFile<-tempfile()
writeLines(namesText,tmpFile)
sqlFile<-tempfile()
read.names.sql(tmpFile,sqlFile)
Run the code above in your browser using DataLab