if (FALSE) {
### 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
}
Run the code above in your browser using DataLab