final script remoto

valid_variables_script2.R

@@ -218,7 +218,7 @@ check_values_format <- function(valid_columns, codebook_param){
             if(row_names[i] == "NA")
               next
             if(!row_names[i] %in% value_format){
-              variables_out_of_range <- paste(variables_out_of_range, current_column, sep = " ")
+              variables_out_of_range <- paste(variables_out_of_range, current_column, "the range should be:" , possible_values ,sep = " ")
               print(paste(current_column,  "does not follow the established format", sep=" "))
               print(paste("It should follow the following format:", possible_values))
               print(paste("Instead of:", paste(row_names, collapse = " ")))