fix for #304

ncss-tech · Sep 30, 2023 · b957c55 · b957c55
1 parent fb4a634
commit b957c55
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/R/mukey-WCS.R b/R/mukey-WCS.R
@@ -209,13 +209,8 @@ mukey.wcs <- function(aoi, db = c('gNATSGO', 'gSSURGO', 'RSS', 'STATSGO', 'PR_SS
   # remove tempfile 
   unlink(tf)
 
-  ## TODO: use terra::as.factor()
   # build RAT
-  # NB: unique() takes na.rm argument on terra >1.5-21 <https://github.com/rspatial/terra/issues/561>
-  uids <- na.omit(terra::unique(r)[[1]])  
-  rat <- data.frame(ID = uids, 
-                    mukey = uids)
-  levels(r)[[1]] <- rat
+  r <- terra::as.factor(r)
 
   # set layer name in object
   names(r) <- 'mukey'