## Not run:
# spnames <- c('Accipiter striatus', 'Setophaga caerulescens', 'Carduelis tristis')
# out <- occ(query=spnames, from='bison', limit=2)
# res <- occ2df(out)
# (tt <- as.bison(out))
# (uu <- as.bison(res))
# as.bison(as.numeric(res$key[1]))
# as.bison(res$key[1])
# as.bison(as.list(res$key[1:2]))
# as.bison(tt[[1]])
# as.bison(uu[[1]])
# as.bison(tt[1:2])
# ## End(Not run)
Run the code above in your browser using DataLab