valid variables local values not duplicated

valid_variables_script_local.R

@@ -51,7 +51,7 @@ 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)
 }else if (grepl(".xlsx" , file_name , fixed = TRUE)){
   harmonized_data <- read.xlsx(file_name)
 }
@@ -358,6 +358,3 @@ result<-check_valid_values(valid_colnames_with_data, codebook)
 print(columns_not_valid)
 cat(result)
 
-#location <- paste(dir_name , "harmonized_data", "modified.csv", sep = "/")
-#write.csv2(harmonized_data, location)
-