bug variables duplicadas

valid_variables_script2.R

@@ -135,7 +135,7 @@ check_values_format <- function(valid_columns, codebook_param){
     print(current_column)
     variable_type <- codebook_param$Variable.type[codebook$Harmonised.variable.name == current_column]
     
-    if (is.na(variable_type)){
+    if (length(variable_type) > 1 || is.na(variable_type)){
       next
     }
     
@@ -165,6 +165,8 @@ check_values_format <- function(valid_columns, codebook_param){
             error <- paste("Unable to analyse data" , cnd, sep = " ")
           print(error)
           res <- c(res, error)
+          variables_out_of_range <- paste(variables_out_of_range, current_column, "Unable to analyze , check just in case, the format should be:", possible_values ,sep = " ")
+          variables_out_of_range <- paste(variables_out_of_range , "" , sep = "\n")
         },
         {
           print(paste("Higher Limit: ", high_limit))
@@ -210,6 +212,8 @@ check_values_format <- function(valid_columns, codebook_param){
             error <- paste("Unable to analyse data" , cnd, sep = " ")
           print(error)
           res <- c(res, error)
+          variables_out_of_range <- paste(variables_out_of_range, current_column, "Unable to analyze , check just in case, the format should be:", possible_values ,sep = " ")
+          variables_out_of_range <- paste(variables_out_of_range , "" , sep = "\n")
         },
         {
           contingency_table <- ds.table(paste("data$",current_column,sep=""))