if (FALSE) # Need internet connection
choosebank("emblTP")
mylist<-query("mylist", "N=@", virtual = TRUE) # select all (seqs + subseqs)
mylist$nelem # 14138094 seqs + subseqs
stopifnot(mylist$nelem == 14138094)
css(glr("mylist")) # 1604500 subsequences only
stopifnot(css(glr("mylist")) == 1604500)
closebank()
Run the code above in your browser using DataLab