# NOT RUN {
##download species data with all possible assertions
x <- occurrences(taxon="golden bowerbird", download_reason_id=10,
qa=ala_fields("assertions")$name)
asserts <- check_assertions(x)
## this is a data.frame of assertions, their description and column names
## list the descriptions of all (current) assertions
asserts$description
## assertion columns from data
tmp <- x$data[, names(x$data) %in% asserts$name]
which(colSums(tmp) > 0) ## discard those not seen in the data
# }
Run the code above in your browser using DataLab