From c159891acd96eb487fcbcaea4b83d4da6862a130 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Pepe=20M=C3=A1rquez=20Romero?= Date: Wed, 1 Mar 2023 16:26:43 +0100 Subject: [PATCH] sustituyendo codebook por codebook_param --- valid_variables_script2.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/valid_variables_script2.R b/valid_variables_script2.R index 22d82e2..c13a924 100644 --- a/valid_variables_script2.R +++ b/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 ## -- 2.24.1