empezando a modificar el script remoto

connection_parameters.R

@@ -73,7 +73,7 @@ resource_names <- c(
   "CIPH_numeric_derivated",
   "20220719_HarmonisedUMFIasi",
   "SMUC_resource",
-  "20220720_HarmonisedHM",
+  "20220919_FiHM",
   "Resource_derived",
   "IISFJD_Harmonized_1",
   "IPC_Harmonized",

valid_variables_script_local.R

@@ -120,8 +120,8 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
     str_res <- "No failing values"
   else{
     failing_values <- failing_values[!is.na(failing_values)]
-    #str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
-    str_res <- paste(colname , collapse =" ")
+    str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
+    #str_res <- paste(colname , collapse =" ")
     str_res <- paste(str_res ,  "should be in range" , range_as_str, "(continuous)", sep = " ")
   }
     
@@ -140,8 +140,8 @@ check_valid_values_binary <- function(colname , column){
   else{
     range_as_str <- "0-1 (binary)"
     failing_values <- failing_values[!is.na(failing_values)]
-    #str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
-    str_res <- paste(colname , collapse =" ")
+    str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
+    #str_res <- paste(colname , collapse =" ")
     str_res <- paste(str_res ,  "should be in range" , range_as_str, sep = " ")
   }