spnames <- c('Accipiter striatus', 'Setophaga caerulescens', 'Carduelis tristis')
out <- occ(query=spnames, from='inat', limit=2)
res <- occ2df(out)
(tt <- as.inat(out))
(uu <- as.inat(res))
as.inat(res$key[1])
as.inat(as.list(res$key[1:2]))
as.inat(tt[[1]])
as.inat(uu[[1]])
as.inat(tt[1:2])
library("dplyr")
rbind_all(lapply(tt, function(x) {
data.frame(x$taxon[c('id','name','rank','unique_name')], stringsAsFactors = FALSE)
}))
Run the code above in your browser using DataLab