# NOT RUN {
spnames <- c('Accipiter striatus', 'Setophaga caerulescens',
'Spinus tristis')
out <- occ(query=spnames, from='idigbio', limit=2)
res <- occ2df(out)
(tt <- as.idigbio(out))
(uu <- as.idigbio(res))
as.idigbio(res$key[1])
as.idigbio(as.list(res$key[1:2]))
as.idigbio(tt[[1]])
as.idigbio(uu[[1]])
as.idigbio(tt[1:2])
library("dplyr")
bind_rows(lapply(tt, function(x) data.frame(unclass(x)$data)))
# }
Run the code above in your browser using DataLab