diff --git a/R/WCS-utils.R b/R/WCS-utils.R index b446a8a1..1d81d350 100644 --- a/R/WCS-utils.R +++ b/R/WCS-utils.R @@ -679,8 +679,8 @@ WCS_details <- function(wcs = c('mukey', 'ISSR800', 'soilColor')) { 'hi_ssurgo' = list( dsn = 'hi_ssurgo', type = 'GEOTIFF_FLOAT', - desc = 'HI map unit keys', - vintage = 'FY2023', + desc = 'HI map unit keys (experimental)', + vintage = 'FY2024', na = 4294967295, res = 30, rat = NULL @@ -689,8 +689,8 @@ WCS_details <- function(wcs = c('mukey', 'ISSR800', 'soilColor')) { 'pr_ssurgo' = list( dsn = 'pr_ssurgo', type = 'GEOTIFF_FLOAT', - desc = 'PR map unit keys', - vintage = 'FY2023', + desc = 'PR map unit keys (experimental)', + vintage = 'FY2024', na = 4294967295, res = 30, rat = NULL diff --git a/R/soilColorWCS.R b/R/soilColorWCS.R index 32bd251c..14771454 100644 --- a/R/soilColorWCS.R +++ b/R/soilColorWCS.R @@ -46,7 +46,7 @@ soilColor.wcs <- function(aoi, var, res = 270, quiet = FALSE) { ## vintage of source data - .vintage <- 'FY2023' + .vintage <- 'FY2022' # sanity check: AOI specification if (!inherits(aoi, c('list', 'Spatial', 'sf', 'sfc', 'bbox', 'RasterLayer', 'SpatRaster', 'SpatVector'))) {