diff --git a/valid_variables_script2.R b/valid_variables_script2.R index 1b27f93bb3ed44f45592d99b64b229d33c06193b..815c2d121836eca8eb076493c50da3058252dbad 100644 --- a/valid_variables_script2.R +++ b/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 = " ")))