## Not run: ------------------------------------
# get_occ_count <- function(speciesname, occ) {
# nrow(occ)
# }
#
# record_counts <- lapply_species(get_occ_count)
# sum(unlist(record_counts))
#
# # count first 10
# species <- list_species()
# lapply_species(get_occ_count, species=species[1:10,])
## ---------------------------------------------
Run the code above in your browser using DataLab