## Not run:
# ### Need internet connection
# choosebank("emblTP")
# mylist <- query("mylist", "t=CDS", virtual = TRUE)
# stopifnot(residuecount(glr("mylist")) == 1611439240)
# stopifnot(is.na(residuecount(glr("unknowlist")))) # A warning is issued
# ## End(Not run)
Run the code above in your browser using DataLab