if (FALSE) {
df <- lc_nlcd(comid='23783629', year='2019', aoi='ws') # Will show a deprecation warning
df <- lc_get_nlcd(comid='23783629', year='2019', aoi='ws')
df <- lc_get_nlcd(year='2016', aoi='cat',
comid='23783629,23794487,23812618', showAreaSqKm=FALSE, showPctFull=TRUE)
df <- lc_get_nlcd(year='2016', aoi='cat',
comid='23783629,23794487,23812618', countOnly=TRUE)
df <- lc_get_nlcd(year='2016, 2019', aoi='cat,ws',
comid='23783629,23794487,23812618')
}
Run the code above in your browser using DataLab