chg na type for false r2n

p-will-b · Aug 14, 2021 · fc6dd1b · fc6dd1b
1 parent ff41ae8
commit fc6dd1b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/rating_to_numeric.R b/R/rating_to_numeric.R
@@ -31,7 +31,7 @@ rating_to_numeric <- function(credit_rating, na_as_nr = TRUE) {
 
   if(!na_as_nr) {
     rtg_out <- creditor:::cr_imp$numeric_value[match(x, creditor:::cr_imp$char_value)]
-    rtg_out[is.na(credit_rating)] <- NA_character_
+    rtg_out[is.na(credit_rating)] <- NA_real_
     return(rtg_out)
 
   } else {
@@ -40,3 +40,5 @@ rating_to_numeric <- function(credit_rating, na_as_nr = TRUE) {
   }
 
 }
+
+