set layer name first

ncss-tech · Sep 30, 2023 · 3f79d36 · 3f79d36
1 parent b957c55
commit 3f79d36
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/mukey-WCS.R b/R/mukey-WCS.R
@@ -209,12 +209,12 @@ mukey.wcs <- function(aoi, db = c('gNATSGO', 'gSSURGO', 'RSS', 'STATSGO', 'PR_SS
   # remove tempfile 
   unlink(tf)
 
-  # build RAT
-  r <- terra::as.factor(r)
-
   # set layer name in object
   names(r) <- 'mukey'
 
+  # build RAT
+  r <- terra::as.factor(r)
+
   # and as an attribute
   attr(r, 'layer name') <- var.spec$desc