saltos de linea con cat

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)