#
# List all available methods for getKeyword generic function:
#
methods(getKeyword)
#
# Example of keyword extraction from an ACNUC server:
#
if (FALSE) {
# Need internet connection
choosebank("emblTP")
fc<-query("fc", "sp=felis catus et t=cds et o=mitochondrion")
getKeyword(fc$req[[1]])
# Should be:
# [1] "DIVISION ORG" "RELEASE 62" "CYTOCHROME B" "SOURCE" "CDS"
closebank()
}
Run the code above in your browser using DataLab