get_SDA_coecoclass: integer aggregate site percentage

ncss-tech · Jan 9, 2024 · 6df97b9 · 6df97b9
1 parent 59dbe0b
commit 6df97b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_SDA_coecoclass.R b/R/get_SDA_coecoclass.R
@@ -261,7 +261,7 @@ get_SDA_coecoclass <- function(method = "None",
           siten = ifelse(isTRUE(is.na(x$ecoclassid[i])), not_rated_value, x$ecoclassid[i]),
           sitenname = ifelse(isTRUE(is.na(x$ecoclassname[i])), not_rated_value, x$ecoclassname[i]),
           sitencompname = ifelse(isTRUE(is.na(x$compnames[i])), NA_character_, x$compnames[i]),
-          sitenpct_r = ifelse(isTRUE(is.na(x$condpct_r[i])), 0, x$condpct_r[i]),
+          sitenpct_r = ifelse(isTRUE(is.na(x$condpct_r[i])), 0L, x$condpct_r[i]),
           sitenlink = ifelse(
             isTRUE(x$ecoclassid[i] == not_rated_value | is.na(x$ecoclassid[i])),
             NA_character_,