mejorando mensajes de error

valid_variables_script_local.R

@@ -51,6 +51,7 @@ harmonized_data <- ""
 
 if (grepl(".csv" , file_name , fixed = TRUE)){
   harmonized_data <- read.csv(file_name)
+  #harmonized_data <- read.csv(file_name, sep = ";")
 }else if (grepl(".xlsx" , file_name , fixed = TRUE)){
   harmonized_data <- read.xlsx(file_name)
 }
@@ -101,6 +102,7 @@ check_valid_name <- function(col_name){
 check_valid_values_continuous <- function(colname , codebook_param , column){
   
   column <- column[column != "."]
+  variable_units <- codebook_param$Possible.values[codebook_param$Harmonised.variable.name == colname]
   possible_values_format <- codebook_param$Possible.values.format[codebook_param$Harmonised.variable.name == colname]
   possible_values_list =  str_split(possible_values_format , "/")[[1]]
   
@@ -120,9 +122,14 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
     str_res <- "No failing values"
   else{
     failing_values <- failing_values[!is.na(failing_values)]
-    str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
-    #str_res <- paste(colname , collapse =" ")
+    if (number_of_failing_values >= 10){
+      str_res <- paste( colname , paste(unlist(failing_values) , collapse =" ")) 
+    }else{
+      str_res <- paste(colname , collapse =" ")   
+    }
     str_res <- paste(str_res ,  "should be in range" , range_as_str, "(continuous)", sep = " ")
+    str_res <- paste(str_res ,  "with units" , variable_units, sep = " ")
+    str_res <- paste(str_res ,  "\n\n" , sep = "")
   }