# Need internet connection
choosebank("emblTP")
query("tmp1", "sp=Borrelia burgdorferi", virtual = TRUE)
query("tmp2", "sp=Borrelia burgdorferi", virtual = TRUE)
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()
Run the code above in your browser using DataLab