if (FALSE) {
vert_id(ids = "urn:catalog:CM:Herps:116520")
ids <- c("http://arctos.database.museum/guid/MSB:Mamm:56979?seid=1643089",
"urn:catalog:CM:Herps:116520",
"urn:catalog:AUM:Fish:13271")
res <- vert_id(ids)
res$data$occurrenceid
out <- vertsearch(taxon = "aves", state = "california", limit = 5)
(ids <- out$data$occurrenceid)
res <- vert_id(ids)
identical(sort(res$data$occurrenceid), sort(ids))
}
Run the code above in your browser using DataLab