fixed bug when MACRPROP_UNADJ is character type

USDAForestService · Jun 11, 2024 · 8bf866e · 8bf866e
1 parent 63033f6
commit 8bf866e
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/R/modGBpop.R b/R/modGBpop.R
@@ -920,7 +920,10 @@ modGBpop <- function(popType = "VOL",
   if (unitvar != "unitnew" && !is.null(unitvar2)) {
     condx[, (unitvars) := tstrsplit(get(unitvar), "-", fixed=TRUE)]
   }
-
+  if ("MACRPROP_UNADJ" %in% names(condx) && is.character(condx$MACRPROP_UNADJ)) {
+    condx$MACRPROP_UNADJ <- as.numeric(condx$MACRPROP_UNADJ)
+  }
+
   if (adj == "none") {
     setkeyv(condx, c(cuniqueid, condid))
     areawtnm <- areawt

diff --git a/R/modMApop.R b/R/modMApop.R
@@ -721,6 +721,10 @@ modMApop <- function(popType="VOL",
     condx[, (unitvars) := tstrsplit(get(unitvar), "-", fixed=TRUE)]
   }
 
+  if ("MACRPROP_UNADJ" %in% names(condx) && is.character(condx$MACRPROP_UNADJ)) {
+    condx$MACRPROP_UNADJ <- as.numeric(condx$MACRPROP_UNADJ)
+  }
+
   if (adj == "none") {
     setkeyv(condx, c(cuniqueid, condid))
   } else {

diff --git a/R/modSApop.R b/R/modSApop.R
@@ -688,6 +688,10 @@ modSApop <- function(popType = "VOL",
   condx <- condx[pltassgnx[, c(pltassgnid, dunitvar, prednames), with=FALSE]]
   setkeyv(condx, c(cuniqueid, condid))
 
+  if ("MACRPROP_UNADJ" %in% names(condx) && is.character(condx$MACRPROP_UNADJ)) {
+    condx$MACRPROP_UNADJ <- as.numeric(condx$MACRPROP_UNADJ)
+  }
+
   if (adj == "none") {
     setkeyv(condx, c(cuniqueid, condid))
   } else {