pequeña mejora en la sustitucion de Yes/No

ressourceCleaner.R

@@ -85,11 +85,15 @@ is_number <- function(x){
 replaceNoYesValues <- function(x){
   
   #Replace the value with Yes or No
-    if(is.na(x))
+    if(is.na(x)){
       x <- ""
-    else if (x==0 | x =="No" | x ==" No" | x =="NO")
+      return (x)
+    }
+  
+    x <- trimws(toupper(x))
+    if (x=="0" | x =="NO")
       x <- "No"
-    else if (x==1 | x == "Yes" |  x == " Yes" | x=="SI")
+    else if (x=="1" | x == "YES" |  x=="SI")
       x <- "Yes"
     else
       x <- ""
@@ -131,14 +135,15 @@ personalizedFun <- function(x, colname){
   }
 
   if(colname == "SMXFEA"){
-    if(is.na(x))
-      x <- ""
-    else if(x == 1)
-      x <- "Yes"
-    else if (x == 0)
-      x <- "No"
-    else if (x == ".")
-      x <- ""
+    x <- replaceNoYesValues(x)
+    #if(is.na(x))
+     # x <- ""
+    #else if(x == 1)
+     # x <- "Yes"
+    #else if (x == 0)
+     # x <- "No"
+    #else if (x == ".")
+     # x <- ""
   }
   
   if(colname == "DMRRETH1"){