if (FALSE) {
# Need internet connection
choosebank("emblTP")
MyListName <- query("MyListName", "sp=Borrelia burgdorferi", virtual = TRUE)
(result <- getlistrank("MyListName"))
stopifnot(result == 2)
closebank()
}
Run the code above in your browser using DataLab