# PDB server connection required - testing excluded
# Fetch all annotation terms
ids <- c("6Q21_B", "1NVW", "1P2U_A")
anno <- pdb.annotate(ids)
# Access terms, e.g. ligand names:
anno$ligandName
## only unique PDB IDs
anno <- pdb.annotate(ids, unique=TRUE)
# Fetch only specific terms
pdb.annotate(ids, anno.terms = c("ligandId", "citation"))
Run the code above in your browser using DataLab