Skip to content

H
Harmonize_Scripts
Commit 2ebe9c3e authored by GNajeral's avatar GNajeral
Browse files
Options

valid variables local values not duplicated

parent 33c6af54
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 9 deletions
valid_variables_script_local.R
View file @ 2ebe9c3e
...@@ -51,7 +51,7 @@ file_name <- readline("Introduce the name of the file to check the values: ") ...@@ -51,7 +51,7 @@ file_name <- readline("Introduce the name of the file to check the values: ")
harmonized_data <- "" harmonized_data <- ""
if (grepl(".csv" , file_name , fixed = TRUE)){ 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)){ }else if (grepl(".xlsx" , file_name , fixed = TRUE)){
harmonized_data <- read.xlsx(file_name) harmonized_data <- read.xlsx(file_name)
} }
...@@ -358,6 +358,3 @@ result<-check_valid_values(valid_colnames_with_data, codebook) ...@@ -358,6 +358,3 @@ result<-check_valid_values(valid_colnames_with_data, codebook)
print(columns_not_valid) print(columns_not_valid)
cat(result) cat(result)
#location <- paste(dir_name , "harmonized_data", "modified.csv", sep = "/")
#write.csv2(harmonized_data, location)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment