get_extended_data_from_NASIS_db: fix conversion of codes to labels fo…

…r microrelief
ncss-tech · Jun 5, 2024 · 035b2a0 · 035b2a0
1 parent 4207c8d
commit 035b2a0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/get_extended_data_from_NASIS_db.R b/R/get_extended_data_from_NASIS_db.R
@@ -459,6 +459,7 @@ LEFT OUTER JOIN (
 	d.rf.data    <- uncode(d.rf.data, dsn = dsn)
 	d.art.data  <-  uncode(d.art.data, dsn = dsn)
 	d.hz.texmod  <- uncode(d.hz.texmod, dsn = dsn)
+	d.geomorph  <- uncode(d.geomorph, dsn = dsn)
 	# ensure that taxhistory is always character
 	d.taxhistory[] <- lapply(uncode(d.taxhistory, dsn = dsn), 
 	                         function(x) if (is.factor(x)) as.character(x) else x)