diff --git a/valid_variables_script_local.R b/valid_variables_script_local.R old mode 100755 new mode 100644 index 7b2f73414d2359f21a57289e6251fb5131924751..5432ed8f79eaef271a7690ee962c692ea6e42130 --- a/valid_variables_script_local.R +++ b/valid_variables_script_local.R @@ -51,7 +51,8 @@ file_name <- readline("Introduce the name of the file to check the values: ") harmonized_data <- "" if (grepl(".csv" , file_name , fixed = TRUE)){ - harmonized_data <- read.csv(file_name, sep=";") + harmonized_data <- read.csv(file_name) + #harmonized_data <- read.csv(file_name, sep = ";") }else if (grepl(".xlsx" , file_name , fixed = TRUE)){ harmonized_data <- read.xlsx(file_name) } @@ -294,6 +295,7 @@ check_valid_values_binary <- function(colname, column) { + check_valid_values <- function(valid_colnames, codebook_param){ res <- ""