if (FALSE) # Need internet connection
choosebank("emblTP")
#
# Example with a file that contains sequence names:
#
fileSQ <- system.file("sequences/bb.mne", package = "seqinr")
listSQ <- crelistfromclientdata("listSQ", file = fileSQ, type = "SQ")
sapply(listSQ$req, getName)
#
# Example with a file that contains sequence accession numbers:
#
fileAC <- system.file("sequences/bb.acc", package = "seqinr")
listAC <- crelistfromclientdata("listAC", file = fileAC, type = "AC")
sapply(listAC$req, getName)
#
# Example with a file that contains species names:
#
fileSP <- system.file("sequences/bb.sp", package = "seqinr")
listSP <- crelistfromclientdata("listSP", file = fileSP, type = "SP")
sapply(listSP$req, getName)
#
# Example with a file that contains keywords:
#
fileKW <- system.file("sequences/bb.kwd", package = "seqinr")
listKW <- crelistfromclientdata("listKW", file = fileKW, type = "KW")
sapply(listKW$req, getName)
#
# Summary of ACNUC lists:
#
sapply(alr()$rank, getliststate)
closebank()
Run the code above in your browser using DataLab