if (FALSE) {
### Need internet connection
choosebank("emblTP")
mylist <- query("mylist", "sp=felis catus et t=cds", virtual=TRUE)
savelist(glr("mylist"))
# 603 sequence mnemonics written into file: MYLIST.mne
savelist(glr("mylist"), type = "A")
# 603 sequence accession numbers written into file: MYLIST.acc
}
Run the code above in your browser using DataLab