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 <- ""