WCS back-ends updated, vintages now correctly specified

ncss-tech · Jan 11, 2024 · 8aebc85 · 8aebc85
1 parent b9061e1
commit 8aebc85
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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'))) {