# NOT RUN {
key <- Sys.getenv('NASS_KEY')
search_data_items(key, search_terms=c('corn', 'harvested'),
exclude=c('sweet'))
search_data_items(key, search_terms=c('corn', 'price'), exclude=c())
# }
Run the code above in your browser using DataLab