# NOT RUN {
taxon.table <- get_table('Taxa')
#  Get the frequency of a random taxon in Neotoma.
tax_sample <- sample(nrow(taxon.table), 1)
cat("The taxon", 
    taxon.table$TaxonName[tax_sample], 
    "occurs in Neotoma", 
    length(get_dataset(taxonname = taxon.table$TaxonName[tax_sample])), 
    "times.")
# }
Run the code above in your browser using DataLab