# NOT RUN {
if(interactive()){
library(rgbif)
occdat <- occ_data(
country = 'AU', # Country code for australia
classKey = 359, # Class code for mammalia
limit = 50 # Get only 50 records
)
myData <- occdat$data
question <- BdQuestion()
responses <- get_user_response(question)
cleaned_data <- create_report_data(myData, myData, myData, responses, T, 'pdf')
}
# }
Run the code above in your browser using DataLab