final script remoto

valid_variables_script2.R

@@ -219,6 +219,7 @@ check_values_format <- function(valid_columns, codebook_param){
               next
             if(!row_names[i] %in% value_format){
               variables_out_of_range <- paste(variables_out_of_range, current_column, "the range should be:" , possible_values ,sep = " ")
+              variables_out_of_range <- paste(variables_out_of_range , "\n" , 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 = " ")))