get_SDA_coecoclass: fix bug with components with more than one ecosite

ncss-tech · Jan 9, 2024 · d4f2955 · d4f2955
1 parent 4573d36
commit d4f2955
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_SDA_coecoclass.R b/R/get_SDA_coecoclass.R
@@ -220,7 +220,7 @@ get_SDA_coecoclass <- function(method = "None",
     data.frame(
       ecoclassid = not_rated_value,
       ecoclassname = not_rated_value,
-      condpct_r = 100 - sum(condpct_r[nchar(compnames) > 0], na.rm = TRUE),
+      condpct_r = sum(condpct_r[nchar(unassigned) > 0 & !unassigned %in% compnames], na.rm = TRUE),
       compnames = paste0(unassigned[nchar(unassigned) > 0 & !unassigned %in% compnames],
                          collapse = ",")
     )