From 81ad5fcdb66ea34f093d20cfe46e269df8d0d09f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Pepe=20M=C3=A1rquez=20Romero?= Date: Mon, 6 Mar 2023 16:09:45 +0100 Subject: [PATCH] saltos de linea con cat --- valid_variables_script2.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/valid_variables_script2.R b/valid_variables_script2.R index 1268560..8ebbf3e 100644 --- a/valid_variables_script2.R +++ b/valid_variables_script2.R @@ -219,7 +219,7 @@ check_values_format <- function(valid_columns, codebook_param){ next if(!row_names[i] %in% value_format){ variables_out_of_range <- paste(variables_out_of_range, current_column, "the range should be:" , possible_values ,sep = " ") - variables_out_of_range <- paste(variables_out_of_range , "\n" , sep = "") + variables_out_of_range <- paste(variables_out_of_range , "" , sep = "\n") print(paste(current_column, "does not follow the established format", sep=" ")) print(paste("It should follow the following format:", possible_values)) print(paste("Instead of:", paste(row_names, collapse = " "))) @@ -283,7 +283,7 @@ 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, codebook) -print(res) +cat(res) datashield.logout(connections) -- 2.24.1