sustituyendo codebook por codebook_param

valid_variables_script2.R

@@ -143,7 +143,7 @@ check_values_format <- function(valid_columns, codebook_param){
       
       ### parse del formato de una variable continua ##
       ## esta sentencia funciona codebook$Possible.values.format[codebook$Harmonised.variable.name == "CMXDE"] pruebala en el interprete.
-      value_format <- strsplit(codebook_param$Possible.values.format[codebook$Harmonised.variable.name == current_column], " / ")[[1]]
+      value_format <- strsplit(codebook_param$Possible.values.format[codebook_param$Harmonised.variable.name == current_column], " / ")[[1]]
       high_limit <- as.numeric(sub("-.*", "", value_format[1]))
       low_limit <- as.numeric(sub(".*-", "", value_format[1]))
       ### parse del formato de una variable continua ##