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