seq <- sequences$seq1
head(bold_identify(sequences=seq)[[1]])
head(bold_identify(sequences=seq, db='COX1_SPECIES')[[1]])
bold_identify(sequences=seq, response=TRUE)
# Multiple sequences
out <- bold_identify(sequences=c(sequences$seq2, sequences$seq3), db='COX1')
lapply(out, head)
# curl debugging
library('httr')
bold_identify(sequences=seq, response=TRUE, config=verbose())[[1]]
Run the code above in your browser using DataLab