taxa<-c(
"accession\taccession.version\ttaxid\tgi",
"Z17427\tZ17427.1\t3702\t16569",
"Z17428\tZ17428.1\t3702\t16570",
"Z17429\tZ17429.1\t3702\t16571",
"Z17430\tZ17430.1\t3702\t16572"
)
inFile<-tempfile()
sqlFile<-tempfile()
writeLines(taxa,inFile)
read.accession2taxid(inFile,sqlFile,vocal=FALSE)
getAccessions(3702,sqlFile)
Run the code above in your browser using DataLab