Merge branch 'Guille' of medal.ctb.upm.es:uncover/harmonize_scripts into Guille

valid_variables_script2.R

@@ -126,17 +126,28 @@ is_number <- function(x){
   
 }
 
-check_values_format <- function(valid_columns){
+
+# A esta funcion la llamamos unicamente con las columnas que el sabemos que el nombre es correcto
+# Usa codebook param. Si algún cambia el codebook agradeceremos esto.
+check_values_format <- function(valid_columns, codebook_param){
   res <- ""
   for(i in 1:length(valid_columns[[1]])){
     print(i)
+    
     current_column <- valid_columns[[1]][[i]]
-    if(current_column %in% codebook_labo$Harmonised.variable.name){
-      index <- which(current_column, codebook_labo$Harmonised.variable.name)
-      value_format <- strsplit(codebook_si_sympt$Possible.values.format[2], " / ")[[1]]
+    variable_type <- codebook_param$Variable.type[codebook$Harmonised.variable.name == current_column]
+   
+    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.
+      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]))
-      if(codebook_labo$Variable.type[index] == "Continuous"){
+      ### parse del formato de una variable continua ##
+      
       ds.dataFrameSubset(df.name = "data",
                          V1.name = paste("data$", current_column, sep=""),
                          V2.name = high_limit,
@@ -158,7 +169,10 @@ check_values_format <- function(valid_columns){
       if(ds.length(paste("data$", current_column, sep="")) > summary[[1]][[2]]){
         res <- c(res, paste(current_column,  "does not follow the established format" , sep="\n"))
       }
-      }
+      ################## FIN ESTO PODRÍA IR EN UNA FUNC DIFERENTE #############
+      
+    }else if (variable_type == "Binary"){
+      
     }
   }
   return (res)
@@ -211,7 +225,7 @@ data_colnames <- as.data.frame(data_colnames)
 check_valid_columns <- check_column_names(codebook ,data_colnames)
 valid_columns <- as.data.frame(check_valid_columns$colnames)
 res <- ""
-res <- check_values_format(valid_columns)
+res <- check_values_format(valid_columns, codebook)
 print(res)