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)
read.names(tmpFile)
Run the code above in your browser using DataLab