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