## Not run: # Need internet connection
# choosebank("emblTP")
# tmp1 <- query("tmp1", "sp=Borrelia burgdorferi", virtual = TRUE)
# tmp2 <- query("tmp2", "sp=Borrelia burgdorferi", virtual = TRUE)
# tmp3 <- query("tmp3", "sp=Borrelia burgdorferi", virtual = TRUE)
# (result <- alllistranks())
# stopifnot(result$count == 3) # Three ACNUC lists
# stopifnot(result$ranks == 2:4) # Starting at rank 2
# #
# # Summay of current lists defined on the ACNUC server:
# #
# sapply(result$ranks, getliststate)
# closebank()
# ## End(Not run)
Run the code above in your browser using DataLab