taxon.table <- get_table('Taxa')
# Get the frequency of the first ten taxa in Neotoma.
tester <- function(x) length(get_datasets(taxonname = x))
taxon.counts2 <- sapply(taxon.table$TaxonName[1:10], tester)Run the code above in your browser using DataLab