diff --git a/valid_variables_script_local.R b/valid_variables_script_local.R index 9dbdb0e0e1acca516939161cda54b41af50126ae..5820729857dbdec9a0eae57d4297c71339801f26 100755 --- a/valid_variables_script_local.R +++ b/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) } @@ -306,7 +306,7 @@ check_valid_values <- function(valid_colnames, codebook_param){ } #if("DMRBORN" == name | grepl("DAT", name, fixed=TRUE) | grepl("ISO", name , fixed=TRUE) | grepl("BEF", name, fixed=TRUE)){ - # next + # next #} column <- valid_colnames[,i] @@ -315,10 +315,10 @@ check_valid_values <- function(valid_colnames, codebook_param){ column_type <- codebook_param$Variable.type[codebook_param$Harmonised.variable.name == name] if (is.na(column_type) ) { - variable <- paste("Variable ", name, " wrong", sep = " ") - res <- paste(res, variable , sep="\n") - next - } + variable <- paste("Variable ", name, " wrong", sep = " ") + res <- paste(res, variable , sep="\n") + next + } result = switch( column_type, @@ -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) -