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