get_SDA_coecoclass: method "all" always use not_rated_value for sit…

…e ID and name if no data to aggregate
ncss-tech · Dec 29, 2023 · f91dc31 · f91dc31
1 parent 78ac05e
commit f91dc31
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/get_SDA_coecoclass.R b/R/get_SDA_coecoclass.R
@@ -250,8 +250,8 @@ get_SDA_coecoclass <- function(method = "None",
     for (i in sdx) {
       if (i > nrow(x)) {
         d <- data.frame(
-          siten = NA_character_,
-          sitenname = NA_character_,
+          siten = not_rated_value,
+          sitenname = not_rated_value,
           sitencompname = NA_character_,
           sitenpct_r = NA_integer_,
           sitenlink = NA_character_