recurso nuevo UNAV y ASPEUR

connection_parameters.R

@@ -32,7 +32,8 @@ hospital_names <- c(    #Añadir Los de Baskent y sacrocuore
   "Inantro",
   "UNSA",
   "UZA",
-  "ULSS6"
+  "ULSS6",
+  "ASPEUR"
 )
 
 project_names <- c(
@@ -67,7 +68,8 @@ project_names <- c(
   "INANTRO",
   "UnCoVer-BiH-Final",
   "UZA",
-  "ULSS6"
+  "ULSS6",
+  "ASPEUR"
 )
 
 resource_names <- c(
@@ -79,7 +81,7 @@ resource_names <- c(
   "Resource_derived",
   "20220919_IISFJD",
   "20220919_IPC",
-  "UNAV_rsc",
+  "20230311_UNAV_DB_2_3",
   "20220919_TU",
   "20220919_AnkaraAdults",
   "20220919_Konya",
@@ -102,7 +104,8 @@ resource_names <- c(
   "20220919_INANTRO",
   "20220919_UNSAInpatient",
   "20220919_UZA",
-  "20220919_ULSS6"
+  "20220919_ULSS6",
+  "20220919_ASPEUR"
 )
 
 urls <- c(
@@ -137,7 +140,8 @@ urls <- c(
   "https://192.168.1.200:8007",
   "https://192.168.1.200:8008",
   "https://uncover.itg.be",
-  "https://opal.aulss6.veneto.it"
+  "https://opal.aulss6.veneto.it",
+  "https://uncover.itg.be"
 )
 
 users <- c(
@@ -172,7 +176,8 @@ users <- c(
   "user_analisis",
   "user_analisis",
   "emertens",
-  "user_analisis"
+  "user_analisis",
+  "emertens"
 )
 
 pass <- c(
@@ -207,5 +212,6 @@ pass <- c(
   "Ekfl07UUgz",
   "Ekfl07UUgz",
   "3^z4AV.)hG5~PT/]",
-  "Ekfl07UUgz"
+  "Ekfl07UUgz",
+  "3^z4AV.)hG5~PT/]"
 )

necessary_functions_connection.R

@@ -44,6 +44,7 @@ connect <- function (){
         UNSA -> 30
         UZA -> 31
         ULSS6 -> 32
+        ASPEUR -> 33
           
       ")
   

valid_variables_script_local.R

@@ -50,7 +50,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)
+  harmonized_data <- read.csv(file_name , sep = ";")
 }else if (grepl(".xlsx" , file_name , fixed = TRUE)){
   harmonized_data <- read.xlsx(file_name)
 }
@@ -250,3 +250,6 @@ 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)
+