# NOT RUN {
key <- Sys.getenv('NASS_KEY')
get_county_data(key=key, year=2017,
data_item='CORN, GRAIN - ACRES HARVESTED', fips='all')
get_county_data(key=key, year=2017,
data_item='CORN, GRAIN - ACRES HARVESTED', fips='08')
get_county_data(key=key, year=2017,
data_item='CORN, GRAIN - ACRES HARVESTED', fips='08069',
domain='all')
# }
Run the code above in your browser using DataLab