# NOT RUN {
data <- querySanger(
locus = 'CYB', projects=list(1),
expeditions=list("acaach_CyB_JD", "acajap_CyB_JD"),
query="yearCollected >= 2008")
data <- querySanger(locus = 'CO1', query = "genus = Linckia AND specificEpithet = laevigata" )
# }
Run the code above in your browser using DataLab