# NOT RUN {
custom_questionnaire <- create_default_questionnaire()
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
responses <- run_questionnaire()
cleaned_data <- clean_data(myData, responses)
cleaned_data2 <- clean_data(myData)
}
# }
Run the code above in your browser using DataLab