Bug fix for variables without format

valid_variables_script2.R

@@ -134,20 +134,19 @@ check_values_format <- function(valid_columns, codebook_param){
     current_column <- valid_columns[[1]][[i]]
     print(current_column)
     variable_type <- codebook_param$Variable.type[codebook$Harmonised.variable.name == current_column]
+    possible_values <- codebook_param$Possible.values.format[codebook_param$Harmonised.variable.name == current_column]
     
-    if (length(variable_type) > 1 || is.na(variable_type)){
+    if (length(variable_type) > 1 || is.na(variable_type) || is.na(possible_values)){
       next
     }
     
     print(variable_type)
-   
     if(variable_type == "Continuous"){
       
       ################## ESTO PODRÍA IR EN UNA FUNC DIFERENTE #############
       
       ### parse del formato de una variable continua ##
       ## esta sentencia funciona codebook$Possible.values.format[codebook$Harmonised.variable.name == "CMXDE"] pruebala en el interprete.
-      possible_values <- codebook_param$Possible.values.format[codebook_param$Harmonised.variable.name == current_column]
       value_format <- strsplit(possible_values, " / ")[[1]]
       low_limit <- str_trim(gsub(",", ".", (sub("-.*", "", value_format[1]))))
       high_limit <- str_trim(gsub(",", ".", (sub(".*-", "", value_format[1]))))
@@ -202,7 +201,6 @@ check_values_format <- function(valid_columns, codebook_param){
       ################## FIN ESTO PODRÍA IR EN UNA FUNC DIFERENTE #############
       
     }else if (variable_type == "Categorical" || variable_type == "Binary"){
-      possible_values <- codebook_param$Possible.values.format[codebook_param$Harmonised.variable.name == current_column]
       value_format <- lapply(strsplit(possible_values, "/") , str_trim)[[1]]
       tryCatch(
         error = function(cnd) {