## Not run: # Need internet connection
# choosebank("emblTP")
# (rescountfreelists <- countfreelists())
# stopifnot(all(rescountfreelists$annotlines ==
# c("ALL", "AC", "PR", "DT", "KW", "OS", "OC",
# "OG", "RN", "RC", "RP", "RX", "RG", "RA", "RT", "RL", "DR",
# "CC", "AH", "AS", "FH", "FT", "CO", "SQ", "SEQ")))
# closebank()
# ## End(Not run)
Run the code above in your browser using DataLab