hospital_names <- c(    #Añadir Los de Baskent y sacrocuore
  "Princesa",
  "CIPH",
  "UMF_Iasis",
  "SMUC",
  "HM",
  "Porto",
  "FJD",
  "Coimbra",
  "UNAV",
  "TU",
  "Ankara Impatient",
  "Konya Impatient",
  "Istambul Impatient",
  "Izmir Impatient",
  "Alanya Impatient",
  "Adana Impatient",
  "Ankara Outpatient",
  "Konya Outpatient",
  "Istambul Outpatient",
  "Izmir Outpatient",
  "Alanya Outpatient",
  "Sacrocuore Emergency",
  "Sacrocuore Employees",
  "Sacrocuore Verona",
  "Sacrocuore Isaric",
  "TUDublin",
  "UMF_Cluj",
  "UdeA",
  "Inantro",
  "UNSA",
  "UZA"
)

project_names <- c(
  "FIBHULP",
  "CIPH_unCoVer",
  "umfiasi",
  "SMUC",
  "FiHM",
  "uncover-up",
  "IISFJD",
  "IPC",
  "unCOVer-UNAV",
  "TU_Uncover",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "BU",
  "S_uncover",
  "S_uncover",
  "S_uncover",
  "S_uncover",
  "TUDublin",
  "UMF_Cluj",
  "INS_Data",
  "INANTRO",
  "UnCoVer-BiH-Final",
  "UZA"
)

resource_names <- c(
  "Harmonized_variables_2",
  "CIPH_numeric_derivated",
  "20220919_UMFIasi",
  "SMUC_resource",
  "20220919_FiHM",
  "Resource_derived",
  "IISFJD_Harmonized_1",
  "IPC_Harmonized",
  "UNAV_rsc",
  "TU_Harmonized",
  "inpatient_ankara",
  "inpatient_konya",
  "inpatient_istanbul",
  "inpatient_izmir",
  "inpatient_alanya",
  "inpatient_adana",
  "outpatient_ankara",
  "outpatient_konya",
  "outpatient_istanbul",
  "outpatient_izmir",
  "outpatient_alanya",
  "emergency",
  "employees",
  "verona",
  "isaric",
  "TUDublin_harmonised",
  "Romania",
  "colombia_all",
  "Inantro",
  "20220722_HarmonizedUNSA",
  "UZA_prelim"
)

urls <- c(
  "https://192.168.1.200:8001",
  "https://192.168.1.200:8002",
  "https://192.168.1.200:8003",
  "https://192.168.1.200:8006",
  "https://192.168.1.50:9002",
  "https://192.168.1.102",
  "https://uncover.itg.be",
  "https://uncover.itg.be",
  "https://192.168.1.50:9001",
  "https://192.168.1.200:8004",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.101:8443",
  "https://192.168.1.50:8890",
  "https://192.168.1.50:8890",
  "https://192.168.1.50:8890",
  "https://192.168.1.50:8890",
  "https://uncover.itg.be",
  "https://192.168.1.200:8005",
  "https://fenfisdi.udea.edu.co/opal",
  "https://192.168.1.200:8007",
  "https://192.168.1.200:8008",
  "https://uncover.itg.be"
  
)

users <- c(
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "emertens",
  "emertens",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "emertens",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "user_analisis",
  "emertens"
)

pass <- c(
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "3^z4AV.)hG5~PT/]",
  "3^z4AV.)hG5~PT/]",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "3^z4AV.)hG5~PT/]",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "Ekfl07UUgz",
  "3^z4AV.)hG5~PT/]"
)