Skip to content

H
Harmonize_Scripts
Commit e74c248e authored by Pepe Márquez Romero's avatar Pepe Márquez Romero
Browse files
Options

recurso nuevo UNAV y ASPEUR

parent bae733c0
Hide whitespace changes
Inline Side-by-side
Showing with 18 additions and 8 deletions
connection_parameters.R
View file @ e74c248e
...@@ -32,7 +32,8 @@ hospital_names <- c( #Añadir Los de Baskent y sacrocuore ...@@ -32,7 +32,8 @@ hospital_names <- c( #Añadir Los de Baskent y sacrocuore
"Inantro", "Inantro",
"UNSA", "UNSA",
"UZA", "UZA",
"ULSS6" "ULSS6",
"ASPEUR"
) )
project_names <- c( project_names <- c(
...@@ -67,7 +68,8 @@ project_names <- c( ...@@ -67,7 +68,8 @@ project_names <- c(
"INANTRO", "INANTRO",
"UnCoVer-BiH-Final", "UnCoVer-BiH-Final",
"UZA", "UZA",
"ULSS6" "ULSS6",
"ASPEUR"
) )
resource_names <- c( resource_names <- c(
...@@ -79,7 +81,7 @@ resource_names <- c( ...@@ -79,7 +81,7 @@ resource_names <- c(
"Resource_derived", "Resource_derived",
"20220919_IISFJD", "20220919_IISFJD",
"20220919_IPC", "20220919_IPC",
"UNAV_rsc", "20230311_UNAV_DB_2_3",
"20220919_TU", "20220919_TU",
"20220919_AnkaraAdults", "20220919_AnkaraAdults",
"20220919_Konya", "20220919_Konya",
...@@ -102,7 +104,8 @@ resource_names <- c( ...@@ -102,7 +104,8 @@ resource_names <- c(
"20220919_INANTRO", "20220919_INANTRO",
"20220919_UNSAInpatient", "20220919_UNSAInpatient",
"20220919_UZA", "20220919_UZA",
"20220919_ULSS6" "20220919_ULSS6",
"20220919_ASPEUR"
) )
urls <- c( urls <- c(
...@@ -137,7 +140,8 @@ urls <- c( ...@@ -137,7 +140,8 @@ urls <- c(
"https://192.168.1.200:8007", "https://192.168.1.200:8007",
"https://192.168.1.200:8008", "https://192.168.1.200:8008",
"https://uncover.itg.be", "https://uncover.itg.be",
"https://opal.aulss6.veneto.it" "https://opal.aulss6.veneto.it",
"https://uncover.itg.be"
) )
users <- c( users <- c(
...@@ -172,7 +176,8 @@ users <- c( ...@@ -172,7 +176,8 @@ users <- c(
"user_analisis", "user_analisis",
"user_analisis", "user_analisis",
"emertens", "emertens",
"user_analisis" "user_analisis",
"emertens"
) )
pass <- c( pass <- c(
...@@ -207,5 +212,6 @@ pass <- c( ...@@ -207,5 +212,6 @@ pass <- c(
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"3^z4AV.)hG5~PT/]", "3^z4AV.)hG5~PT/]",
"Ekfl07UUgz" "Ekfl07UUgz",
"3^z4AV.)hG5~PT/]"
) )
necessary_functions_connection.R
View file @ e74c248e
...@@ -44,6 +44,7 @@ connect <- function (){ ...@@ -44,6 +44,7 @@ connect <- function (){
UNSA -> 30 UNSA -> 30
UZA -> 31 UZA -> 31
ULSS6 -> 32 ULSS6 -> 32
ASPEUR -> 33
") ")
......
valid_variables_script_local.R
View file @ e74c248e
...@@ -50,7 +50,7 @@ file_name <- readline("Introduce the name of the file to check the values: ") ...@@ -50,7 +50,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) harmonized_data <- read.csv(file_name , sep = ";")
}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)
} }
...@@ -250,3 +250,6 @@ result<-check_valid_values(valid_colnames_with_data, codebook) ...@@ -250,3 +250,6 @@ 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