Skip to content

H
Harmonize_Scripts
Commit c159891a authored by Pepe Márquez Romero's avatar Pepe Márquez Romero
Browse files
Options

sustituyendo codebook por codebook_param

parent 3c445cc9
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
valid_variables_script2.R
View file @ c159891a
...@@ -143,7 +143,7 @@ check_values_format <- function(valid_columns, codebook_param){ ...@@ -143,7 +143,7 @@ check_values_format <- function(valid_columns, codebook_param){
### parse del formato de una variable continua ## ### parse del formato de una variable continua ##
## esta sentencia funciona codebook$Possible.values.format[codebook$Harmonised.variable.name == "CMXDE"] pruebala en el interprete. ## 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])) high_limit <- as.numeric(sub("-.*", "", value_format[1]))
low_limit <- as.numeric(sub(".*-", "", value_format[1])) low_limit <- as.numeric(sub(".*-", "", value_format[1]))
### parse del formato de una variable continua ## ### parse del formato de una variable continua ##
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment