ia <- iucn_summary(c("Panthera uncia", "Lynx lynx"))
ia <- iucn_summary(c("Panthera uncia", "Lynx lynx", "aaa"))
# extract status
ldply(ia, function(x) x$status)
laply(ia, function(x) x$status)
ia[['Lynx lynx']]$history
ia[['Panthera uncia']]$distr
ia[[1]]$pop
ia[[2]]$trend
Run the code above in your browser using DataLab