pequeña mejora al tratamiento de variables que no tienen tipo

valid_variables_script2.R

@@ -137,8 +137,12 @@ check_values_format <- function(valid_columns, codebook_param){
     current_column <- valid_columns[[1]][[i]]
     print(current_column)
     variable_type <- codebook_param$Variable.type[codebook$Harmonised.variable.name == current_column]
+    
+    if (is.na(variable_type)){
+      next
+    }
    
-    if(!is.na(variable_type) && variable_type == "Continuous"){
+    if(variable_type == "Continuous"){
       
       ################## ESTO PODRÍA IR EN UNA FUNC DIFERENTE #############
       
@@ -185,7 +189,7 @@ check_values_format <- function(valid_columns, codebook_param){
       )
       ################## FIN ESTO PODRÍA IR EN UNA FUNC DIFERENTE #############
       
-    }else if (!is.na(variable_type) && (variable_type == "Categorical" || variable_type == "Binary")){
+    }else if (variable_type == "Categorical" || variable_type == "Binary"){
       contingency_table <- ds.table(paste("data$",current_column))
       counts <- contingency_table[[1]][[3]]
     }